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Crescendo s’impara 

N on tutti i nostri lettori ricordano le "scadenze" indi- 
cate, fino a qualche numero fa, sulle prime pagine 
della nostra rivista. 

Mi riferisco alla prossima, inevitabile estromissione 
di ogni argomento legato al glorioso C/64, ormai lon- 
tano dal target degli utenti di informatica che, per 
hobby o professione, si rivolgono sempre più verso 
computerà 16/32 bit. 

Sorvolando sull’eterno, "falso" dilemma (Amiga op- 
pure Ms - Dos?) che ci vedrà ancora impegnati nel 
sedare pacifiche risse tra opposte fazioni, ci preme 
evidenziare un aspetto che, impensabile fino a poco 
tempo fa, inizia ad emergere in modo quasi sistema- 
tico. 

Se, infatti, il nome Commodore rappresentava, in 
precedenza, un ben preciso ambiente (se non, addi- 
rittura, un vero e proprio "mondo" a parte), oggi come 
oggi le differenze tra i vari ambienti tendono ad assot- 
tigliarsi, fino quasi a scomparire. 

Anzitutto, in campo Ms - Dos, non ha senso parlare 
di elaboratori e periferiche di sola marca Commodore. 
La totale compatibilità Ms - Dos di tutte le marche (e, 
quindi, Commodore in particolare), infatti, non giusti- 
fica l'esclusiva di un nome rispetto ad un altro. 

Anche in ambiente software, inoltre, la commercia- 
lizzazione di uno stesso pacchetto in più versioni (Ms 
- Dos, Amiga, Macintosh) impedisce di privilegiare un 
prodotto rispetto ad un altro. 

La passione per l’informatica (e qui ci rivolgiamo ai 
nostri lettori) ed il costante abbassamento dei prezzi, 
infine, consente all’hobbysta evoluto di possedere più 
macchine insieme, non necessariamente tutte di una 
marca unica. 

E' questo il motivo per cui li nome Commodore non 
compare più nella nostra testata, mutata in "Compu- 
ter Club" e quindi priva di riferimenti ad un qualsivo- 
glia nome commerciale. 

Inutile dire che l'impegno richiesto è maggiore che 
nel passato; del resto, ampliando l'orizzonte, il viaggio 
da intraprendere richiede altre energie, da utilizzare 
nella continua crescita culturale che l’informatica, più 
che richiedere, esige. 

Alessandro de Simone 
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Insieme 


Ernesto il censore 
SI vede che ritenete che l’e- 
sposizione di natiche molti- 
plicate o di poppe da 5 Kg 
l’una possa guadagnarvi 
dei lettori, ma in questo mo- 
do voi offendete solo l’Intel- 
ligenza di questi ultimi, che 
cercano nella rivista ciò che 
interessa veramente l’ama- 
tore di computer (senza 
parlare dell’offesa che vie- 
ne portata di continuo alla 
donna, mostrata sempre e 
solo come oggetto di piace- 
re). Seguo anche molte altre 
riviste di informatica, sia 
italiane che americane, ma 
nessuna di queste ritiene 
necessario ricorrere a mez- 
zi così rozzi. 

(Ernesto C. Roma ) 

C ome è possibile notare 
dalle immagini pubblicate 
(qualità della carta permetten- 
do) queste sono sempre e so- 
lo immagini digitalizzate che 
hanno, come scopo principa- 
le, quello di evidenziare il no- 
tevole progresso compiuto 
nel campo del "trattamento" di 
immagini, soprattutto grazie 
all’introduzione di hardware e 
software sempre più sofistica- 
to. 

Da che mondo è mondo, 
poi, la bellezza è sempre sta- 
ta monopolio delle donne; 
quale migliore scelta, quindi, 
può essere fatta per eviden- 
ziare al massimo le qualità 
grafiche di una scheda o la 
possibilità di manipolazione di 
un’immagine? 

Spesso, ed il lettore dovrà 
riconoscerlo, pubblichiamo 
anche immagini digitalizzate 
di quadri famosi, sempre allo 
scopo di evidenziare la note- 
vole fedeltà delle sfumature di 
colore e di altre caratteristiche 
grafiche, proprie di immagini 
di elevata qualità. 

Non è colpa nostra, poi, se 
chi decide di digitalizzare im- 
magini fa cadere la sua scelta 
su particolari tondeggianti e 
rosei. Se il nostro lettore, co- 
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(a cura di A. de Simone) 


munque, dispone di scanner 
o di telecamera (e, ovviamen- 
te di un computer) può inviarci 
diapositive di Andreotti, di 
Marzullo o di altri insospetta- 
bili personaggi che possano 
comunque generare una limi- 
tata (e, ne siamo sicuri, invo- 
lontaria) eccitazione sessua- 
le; purché siano immagini, ri- 
peto, tendenti ad evidenziare 
le caratteristiche della mac- 
china, non a sottovalutarle. 

Doppio foro 

Effettuando un foro " gemel- 
lo ” di quello che rappresen- 
ta la protezione di un di- 
schetto da 3.5 è possibile 
trasformare un 720 Kbyte in 
1.44 megabyte? 

(da alcune lettere) 

L a qualità di moderni sup- 
porti magnetici consente 
oggi (come ieri con il drive 
1541 per il C/64) di praticare 
un foro in modo da far ricono- 
scere, da un elaboratore Ms - 
Dos, il dischetto come di ca- 
pacità elevata (parliamo di si- 
stemi Ms - Dos, non di Ami- 
ga). 

Stavolta, però, c'è un pro- 
blema che non si presentava 
con i dischetti da 5.25, facil- 
mente tagliabili con una co- 
mune taglierina. 

L’involucro dei 3.5, infatti, è 
di materiale plastico ed obbli- 
ga ad usare un trapano per 
praticare il foro. Ciò comporta 
l’inevitabile generazione di 
truciolo di plastica che potreb- 
be insinuarsi all’interno del- 
l’involucro stesso e generare 
vari danni in fase di utilizzo del 
dischetto. 

Sono attualmente in vendi- 
ta particolari tranciatori (piut- 
tosto costosi) che, oltre ad 
evitare il problema del truciolo 
(troncano di netto il quadrati- 
no di plastica e ne consento- 
no la rimozione) sono in grado 
di conferire un contorno preci- 
so al foro. 

Sull’affidabilità di un'opera- 
zione del genere, tuttavia, è 


bene avere qualche riserva: è 
infatti noto che, a volte, ope- 
rando su veri dischetti da 1 .4 
megabyte sorgono problemi 
di compatibilità tra drive diver- 
si. 

Figuriamoci usando un 
semplice dischetto "potenzia- 
to” a 1 .4 mega. 

Più semplice di così... 
Anch’io vorrei dire la mia 
sulla mini-sfida lanciata sul 
n. 81, nella quale si chiede- 
va di indicare una proce- 
dura per attivare un file 
batch dotato dello stesso 
nome di un comando Ms- 
Dos... 

(Carmine Russo - Vitulazio) 

E ’ infatti sufficiente -conti- 
nua il nostro lettore- far 
precedere il nome del file dal- 
la barra inclinata inversa (\), 
come ad esempio... 

\date 

...per attivare un file batch di 
nome date . bat. La partico- 
lare forma sintattica, pur se 
non molto nota, evita il ricorso 
a complicate procedure". 

E bravo il nostro Carmine. 
E' proprio vero che non si fini- 
sce mai di imparare! 

□ □ 


Bello e complesso 
Vi invio la versione in Pa- 
scal del programma Indo- 
vina indovinello " da voi 
pubblicata, in Basic, in un 
precedente fascicolo. 
(Lorenzo Pollini - Grosseto) 

I l programma inviato (senza, 
purtroppo, un preventivo ac- 
cordo) è di notevole interesse, 
soprattutto per quanto riguar- 
da la gestione deH'"albero di 
ricerca". 

Le spiegazioni a corredo, 
tuttavia, sono troppo scarse e 
le routine inserite nel listato 
non sono facilmente interpre- 
tabili. La lunghezza del pro- 
gramma, infine, è eccessiva e 
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Una voce 

I l motivo per cui scrivo questa lettera Non tiro nemmeno in ballo Blitter e do a non conoscerlo minimamente, 

(con l’ausilio del grande ProWrlte Copper, perché si potrebbe parlare una perché son "partito" subito con GFABa- 

2.0) è presto detto: non mi piace come giornata intera sui vantaggi che com- sic). L'unico mio ostacolo è, appunto, 

ultimamente Computer Club parli del- portano. Discorso grafica chiuso, netta- quello di conoscere solo superficial- 
l’ Amiga. Tutto il peggio che c’era da mente a favore dell'Amiga. Per quanto mente i due linguaggi citati; nonostante 
dire è stato detto (nei pungenti editoriali riguarda il suono, la scheda Sound Bla- ciò sono sempre riuscito nella conver- 
del mega direttore, che probabilmente ster costa 335 mila lire e non è quasi sione dei programmi, 
starà leggendo la mia lettera). Vorrei mai utilizzata decentemente dai giochi; Inoltre parlate come se l’unico lin- 
ora argomentare una serie di difese (o in ogni caso, per le Work Station musi- guaggio decente per Amiga sia il C: non 
contrattacchi) nei riguardi di questo sot- cali non viene utilizzato l’Ms - Dos bensì è vero. 

tovalutato computer (o snobbato, che è l’Amiga (e, sporadicamente, l'Atari ST). Non parliamo poi deH’Amos, con cui 

poi lo stesso). Partiamo con la grafica. Non avete ancora parlato del nuovo si ottengono dei risultati (rigorosamen- 

L’Ms - Dos con la scheda SuperVGA sistema operativo (chissà perché). Co- te in campo grafico-musicale) che in 
riesce veramente ad umiliare l'Amiga munque il Workbench ha un aspetto campo Ms - Dos si otterrebbero a ma- 
(ho avuto modo di vedere immagini allo eccellente (soprattutto se si definisce lapena in assembly (sempre tenendo 
SMAU, spaventose), per non parlare un retino come sfondo, evitando di usa- conto della grafica Dossiana, scarsuc- 
della nuovissima XGA, di qualità para- re quelli pre-definiti), e non mi si venga eia), e in campo Amiga supera spesso 
gonabile a quella dei videoregistratori, a dire che Windows per Ms - Dos è quelli del C. 

Bene, provate a contare chi possiede efficiente come il WB 2.0. Mi piacerebbe molto quindi che par- 

la SuperVGA e poi fatemelo sapere. Oltretutto l’AmigaDos (fino alla relea- laste del GFABasic (se chiedete alla 
Perfino le piccole emittenti televisive se 1 .3) è stato riscritto, col risultato di SoftMail o alla Eurosoft stessa, verifi- 
usano l’Amiga per i loro (molteplici) avere comandi più veloci ed efficienti, cherete che è un linguaggio molto ri- 
scopi, preferendola all’Ms - Dos per Non riesco a capire come mai parliate chiesto, anche se gli Amighi utilizzano 
un’infinità di cose, non ultimo il prezzo del Quick Basic e del Turbo Pascal ed il loro computer solo per giocare e tra 
(perché non avete indicato il prezzo ignoriate i linguaggi Basic sull'Amiga. parentesi li impiccherei tutti), nonché 
della SuperVGA nella risposta al lettore Possiedo il superbo GFABasic. Eb- del nuovo sistema operativo (che cono- 
che chiedeva un paragone tra Ms - Dos bene: questo concorre senza problemi sco peraltro piuttosto bene), 
e Amiga?). con i tanto conclamati QuickBasic e T. Ho concluso la mia lettera. Spero 

Un Ms - Dos dotato di semplice VGA Pascal (non c’è una sola performance, proprio che vorrete rispondere ai nu- 

non concorre minimamente con PAmi- tra quelle elencate da voi stessi, che merosi "massi" che ho lanciato, 

ga (ma bisogna sempre considerar che non sia posseduta anche dal primo). La mia lettera non vuole assoluta- 
la VGA costa, e non poco, mentre la Sono riuscito a trascrivere la routine del mente essere polemica (come è stato 

grafica dell’Amiga è "fornita” con il com- numero 82, “Barra” a pagina 20 e la detto per la mia precedente, titolando- 

puter stesso), velocità ottenibile in GFABasic compi- mi come "criticatutto"), lo vi dico queste 

in quanto il modo HAM ha la meglio lato parla da sé: con gli stessi parametri cose semplicemente perché vorrei la 
(in ogni caso l’hires dell’Amiga è quasi passati al QuickBasic impiegava 1 2 se- rivista sempre migliore (a proposito: in 
simile ai risultati di una VGA 640 x 480 condi interpretato e 1 0 compilato! Però questi ultimi mesi siete molto migliora- 
con 1 6 colori). il QuickBasic funzionava su un compu- ti). 

Oltretutto, l’unico limite dei 4096 co- ter a 10 Mhz con coprocessore mate- Spero abbiate la cortesia di pubblica- 
lori verrà presto superato con schede matico: in conclusione il GFABasic è re il mio indirizzo sulla rivista, per un 
che porteranno la palette dei colori a 1 6 molto più veloce del QuickBasic (per- eventuale scambio di idee con i lettori, 
milioni (attendiamo il Video Toaster). ché non avete pubblicato i tempi del T. soprattutto se appartenenti al "partito" 

Per quanto riguarda il CAD, anche il Pascal?). Ritengo di essere in grado di Ms - Dos. 

tanto conclamato Autocad non regge tradurre tutte le routine che pubblicate Mauro Bossetti 

con programmi analoghi sull’Amiga in QuickBasic, T. Pascal e AmigaBasic viaBuozzi2/a 

(soprattutto DynaCadd). (a proposito: sarò forse l’unico al mon- 20090 Trezzano s/N (Mi) 


L a modifica di cui parla il sempre di un monitor grafico, 
nostro lettore consente di non si giustificherebbe la pub- 
ottenere le stesse cose, prò- blicazione di un listato che, in 
poste a suo tempo, ma in bas- effetti, rappresenta una "de- 
sa risoluzione invece che in curtazione" delle possibilità 
Hi-res. offerte da un software divul- 

Dal momento che, oggi, Pu- gato in precedenza sulle no- 
tente medio Ms - Dos dispone stre pagine. 


richiederebbe un numero eie- Bello e semplice 

vato di pagine della rivista. Ho apportato alcune modlfi- 

E’ tuttavia evidente la bra- che al programma "Barre" 
vura dimostrata dal nostro let- da voi pubblicato nella ru- 
more che, se lo ritiene opportu- brica "Enciclopedia di rou- 
no, può contattarci per con- tine "del N. 8 2 e mi place- 
cordare insieme un articolo di rebbe vederlo pubblicato. 
sicuro interesse. (Carmelo R.) 
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Insieme 


Una sfida al mese 



Disegnare un 
triangolo sembra la 
cosa più facile di 
questo mondo; 
vediamo se è proprio 
vero... 


L ’area del quadrato costruito sull’ipo- 
tenusa è eguale alla somma delle 
aree dei quadrati costruiti sui due cateti. 

/pse(= Pitagora) dixit;e c’è da creder- 
gli, se da alcune centinaia di anni il cele- 
bre teorema continua a corrugare le fronti 
di milioni di studentelli in tenera età. 

Chiunque è in grado di disegnare con 
una certa precisione, magari a mano li- 
bera, le quattro figure (triangolo e tre 
quadrati) geometriche che dimostrano il 
teorema. 

Ma, "passando" il compito al computer, 
è davvero così semplice realizzare qua- 
drati e triangolo a suon di istruzioni grafi- 
che? Vediamo, insieme, di chiarire il pro- 
blema: 

Qualunque schermo, rettangolare, of- 
fre una limitata risoluzione (e questo, di 
per sè, può esser motivo di sofferenza). 
Inoltre, a causa di particolari dimensioni 


del triangolo, uno dei quadrati può ecce- 
dere i limiti dello schermo. Infine, tenen- 
do conto del potenziale utente (studente 
di scuola media), bisogna realizzare 
un'interfaccia utente semplice ed imme- 
diata. 

La sfida 

I n pratica la sfida di questo mese consi- 
ste nel realizzare un software in grado 
di dimostrare il teorema di Pitagora; a tale 
scopo l’utilizzatore, dopo aver lanciato il 
programma (scritto, inutile dirlo, con 
qualsiasi linguaggio e con qualsiasi com- 
puter. purché non obsoleto) deve: 

* Veder apparire un triangolo rettango- 
lo equilatero "di partenza", di minime di- 
mensioni (vedi ABC di figura), completo 
di quadrati costruiti sui suoi lati, sul quale 
effettuerà i vari esperimenti. In alto (e/o 

in basso) sul video de- 
vono apparire le misure 
dei tre lati e delle tre 
aree che dimostrano la 
validità del teorema. 

* Subito dopo, utiliz- 
zando possibilmente il 
mouse, indicare il lato 
del triangolo, orizzon- 
tale o verticale, da al- 
lungare o accorciare. 

* Contemporanea- 
mente (cioè In tempo 
reale), le quattro figure 
geometriche, e le quote 
numeriche che compa- 
iono sul video, devono 
adeguarsi alla nuova 
impostazione. 

* Nel caso vengano 
impostate misure ina- 


deguate, il software deve provvedere 
automaticamente a spostare il punto B in 
modo da far rientrare nell’area video, per 
quanto possibile, le figure. 

Se vi sembra troppo facile, bè, mette- 
tevi ugualmente all'opera: tra quelli inviati 
verrà pubblicato, infatti, il programma più 
breve che è in grado di rispondere ade- 
guatamente alle esigenze segnalate. 

Il premio in palio, che verrà consegnato 
all’autore del lavoro selezionato, consi- 
sterà in un funzionale appendiabiti di 
stile post-moderno (sarà cura del vinci- 
tore comunicare, indicandola in centime- 
tri, la misura del chiodo che intende rice- 
vere in omaggio). 

Invece dell’elemento di arredo, ovvia- 
mente, sarà anche possibile richiedere 
pubblicazioni della Systems editoriale. 

□ □ 

Come partecipare 

N elle sfide mensili lanciate dalla no- 
stra Testata viene sempre data pre- 
cedenza ai programmi, scritti in qualsiasi 
linguaggio, in grado di girare su Amiga 
oppure computer Ms-Dos compatibili. I 
listati devono essere strutturati in modo 
chiaro, allo scopo di favorire eventuali 
modifiche da parte di lettori che intenda- 
no sofisticare la procedura. Listati ed ar- 
ticolo esplicativo devono tassativamente 
essere inviati su disco (qualsiasi forma- 
to) oppure, via modem, alla nostra BBS 
(tei. 02/57.60.52.11). In ogni caso, onde 
evitare invio di materiale inadeguato alla 
pubblicazione, si consiglia di telefonare 
in redazione (Tel. 02/57.60.63.10) per 
concordare l’inoltro del lavoro svolto. 



Schema defl'output su video del programma da realizzare 


XSefc 
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Grafica 64/ Amiga 


di Dario Pisteila 


Come "passare" immagini 
grafiche dal C/64 all’Amiga 


Una procedura che permette di "trasportare" 
su Amiga tutte le immagini in alta risoluzione 
che avevate memorizzato con il C/64 


I l semplice programma proposto in que- 
ste pagine permette ad Amiga di inter- 
pretare e visualizzare schermate grafi- 
che provenienti dal vecchio C/64. 

Il formato utilizzato dai due computer 
risulta diverso, dal momento che Amiga 
ricorre ad un "codice” che in questi ultimi 
anni sta avendo una larghissima diffusio- 
ne, I IFF (Interchange File Format). 

Proposto come file universale per la 
memorizzazione dei dati dalla Electro- 
nic Art nel 1985, venne accettato dalle 
maggiori compagnie produttrici di soft- 
ware, vista la versatilità e le molteplici 
funzioni. Di solito la somma di 1 00 dollari 


per un programma che consente solo di 
disegnare è considerata una cifra alta; 
ma se il software permette anche di rea- 
lizzare titoli video, animazioni e grafica di 
ogni genere, certamente è un investi- 
mento più equo e completo. 

Purtroppo parecchi programmi di dise- 
gno per personal computer piuttosto dif- 
fusi e popolari non permettono l’inter- 
scambio dei file, cosicché un file creato 
con il programma "A" non può essere 
utilizzato con il programma ”B”. Il Com- 
modore 64, ad esempio, è una vittima di 
questo tipo di incompatibilità. 


Chunk e Form 

N ello standard IFF i dati che svolgono 
la stessa funzione sono raggruppati 
in un unico blocco, definito Chunk. 

Un file IFF è composto da più Chunk. 
Tutti i chunk sono riuniti in un’unica strut- 
tura, detta Form. Un programma Amiga 
verifica il tipo di ogni chunk controllando 
l’identificatore di ciascun form, che con- 
tiene le informazioni riguardanti la lun- 
ghezza ed il tipo di file. 

□ □ 

Bitmap 

U n file grafico IFF è composto, come 
minimo, da tre chunk. Il primo con- 
tiene i dati di controllo, come ad esem- 
pio la larghezza e la lunghezza del dise- 
gno. Il secondo chunk contiene i valori 
RGB per i colori. Il terzo contiene i bit che 
compongono il disegno vero e proprio. 

L’insieme di bit che costituisce un dise- 
gno è chiamato bitmap. Il bitmap può 
utilizzare più chunk come, ad esempio, 
per i dati che realizzano una finta anima- 
zione con i colori (probabilmente si è 
avuto modo di vedere uno di quei giochi 
che utilizzano il cambio ciclico di un co- 
lore, per dare l’idea del movimento), op- 
pure le modalità operative del video, op- 
pure per le coordinate associate al punto 
un cui un segmento grafico viene visua- 
lizzato sullo schermo. 
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aSBMHBKSNHBEBBMI 


REM IFFER (Convertitore di schermate Hi - Res da C/64 ad Amiga) 

.REM by 

REM Dario Pistella 
DIM v (39, 7) 

INPUT "File sorgente ";sorg$ 

INPUT "File oggetto ";ogg$ 

OPEN "df 0 : " + sorg$ FOR INPUT A S 1 
OPEN "df 0 : " + ogg$ FOR OUTPUT AS 2 
PALETTE 1, 1, 1, .13: GOSUB IFF 

BMHeader : 

Ascissa - 320: Ordinata = 200 

SCREEN 1, Ascissa, Ordinata, 5, 1: WINDOW 2, nomedueS, , 0, 1 
Locazione = PEEKL (WINDOW (8) ♦ 4 ) 8 

Pianolocazione - PEEKL (Locazione) 

Bodymap : 

FOR Linee - 0 TO 24 
FOR ottoperotto » 0 TO 39 
FOR bytevert 0 TO 7 

valore «= ASC (INPUTS (1, #1)) 

POKE Pianolocazione ♦ ottoperotto + bytevert 
* 40 + 320 * Linee, valore 

v (ottoperotto, bytevert) = valore 

NEXT bytevert 
NEXT ottoperotto 

REM conversione 

FOR bytev * 0 TO 7 
FOR eie - 1 TO 5 
FOR oxo - 0 TO 39 
PRINTI2, CHRS (v (oxo, bytev)); 

NEXT oxo 
NEXT eie 
NEXT bytev 
NEXT Linee 

CLOSE 2: CLOSE 1: END 

IFF: 

FOR k = 1 TO 186: READ a: ck - ck + a 

PRINT#2, CHR$ (a);: NEXT 

IF ck = 14999 THEN RETURN 

PRINT "Errore nei data.": STOP 

DATA 70, 79, 82, 77: REM FORM 

DATA 0, 0, 156, 242: REM 40178 bytes 

DATA 73, 76, 66, 77: REM ILBM 

DATA 66, 77, 72, 68: REM BMHD 

DATA 0, 0, 0, 20: REM 20 bytes 

DATA 1, 64, 0, 200, 0, 0, 0, 0 

DATA 5: REM Bitplane 

DATA 0, 0, 0, 0, 0, 10, 11, 1, 64, 0, 200 
DATA 67, 11 , 65, 80: REM CMAP 
DATA 0, 0, 0, 96: REM 96 bytes 


Identificatori 

G li identificatori di chunk e di form 
sono costituiti da quattro byte. 
Questi compongono una parola di co- 
dice riconosciuta dalla routine di lettura 
IFF, e sono seguiti da altri quattro byte 
che mantengono le informazioni relative 
alla quantità di dati del disegno. 

□ □ 

Form e llbm 

I primi quattro caratteri del file conten- 
gono la parola Form. I successivi quat- 
tro byte contengono la lunghezza della 
form, memorizzata come numero a 32 
bit. 

Di seguito vi è un identificatore che 
specifica il tipo di file, che può essere, 
come nel caso del file generato dal pro- 
gramma di queste pagine, di tipo ILBM 
(InterLeaved BitMap), che indica come il 
bitmap sia combinato con altri dati in 
un’unica form. 


Bmhd e Cmap 

N el primo chunk seguono altre infor- 
mazioni: quattro byte che contengo- 
no la parola BMHD (BitMap Header) ed 
altri quattro che forniscono la lunghezza 
del chunk (20 byte, nel nostro caso). 

In questo chunk sono precisate le di- 
mensioni del disegno ed il numero di 
Bitplane. 

Proseguendo nell'analisi del formato 
IFF si trova l’identificatore CMAP (Color 
MAP. mappa dei colori) seguito dalla sua 
dimensione. Questo chunk contiene i da- 
ti per i valori RGB dei vari colori utilizzati 
nella Palette. Le tre tonalità red, green e 
blue usano fino ad un byte ciascuna. 


Body 

I l successivo chunk è quello contrasse- 
gnato daH’identificatore Body, che co- 
stituisce il bitmap del disegno. 

I dati contenuti al suo interno seguono 
lo standard IFF: le linee che costituiscono 
i vari bitplane sono accatastate sequen- 
zialmente nel file (la prima linea del primo 
bitplane, seguita dalla seconda linea del 
secondo bitplane, etc.). 
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DATA 

64, 

64, 64, 240, 112, 112 

, 144, 

144 

, 112 

, 14 

4, 176, 

144, 

112, 

128, 112, 240, 48, 80, 

128 







DATA 

14 4 

, 144, 2C8, 144, 128, 

192, 128, 

128, 

208, 

160 

, 128, 

128, 

128, 112, 48, 48, 48, 

0, 112 







DATA 

240 

, 80, 80, 80, 112, 96, 

96, 160, 

128, 

128, 

80, 

8C, 

80, 

8C 

, 80, 80, 192, 160, 144 








DATA 

80, 

80, 80, 80, 80, 80, 80, 80, 

80, 

80, 

80, 

80, 

192, 

160, 

14 

4, 

96, 112, 128, 144, 112 

, 96 







DATA 

192 

, 128, 112, 128, 96, 80, 160, 

96 

, 96, 

48, 

80, 

112 

, 128, 

! 128, 

128, 160, 192, 160 

* 







DATA 

67, 

65, 77, 71, 0, 0, 0, 

4, 0, 0 

, 64, 0, 

67, 

67, 

82, 

84, 

0 , 

0 , 

0, 14 








DATA 

0, 

1, 16, 22, 0, 0, 0, 0, 

0 , 1 , 

61, 

224, 

0 , 

0 



DATA 

66, 

79, 68, 89: REM BODY 








DATA 

0, 

0, 156, 64: REM 40000 

bytes 







END 











Interpretazione dei dati 

I l problema fondamentale è dato dal 
fatto che il C/64 non utilizza questo tipo 
di formato ed inoltre i dati che nell’IFF 
costituiscono il Body sono disposti in mo- 
do diverso dai vari programmi grafici del 
C/64. 

Da Print Shop ad Amiga 

I l programma presentato prende in con- 
siderazione i file generati dal ben noto 
programma Print Shop (ci riferiamo al- 


Pambiente" C/64), i cui file generati con- 
stano di 8000 byte suddivisi come se- 
gue: 25 gruppi di byte a loro volta suddi- 
visi in 40 gruppi di 8 byte. Ma procediamo 
con ordine: nel file memorizzato con il 
C/64 vengono registrati, sequenzialmen- 
te, gli 8 byte che costituiscono le 8 linee 
di 8 pixel della prima cella in alto a sinistra 
sullo schermo, seguiti da altri otto byte 
che costituiscono le 8 linee di 8 pixel della 
casella a fianco, e così via. 

Dopo 40 gruppi di 8 byte si avranno 
quindi tutti i dati relativi alla prima linea di 
8x8 pixel. Questo si ripete per 25 volte 


allo scopo di ottenere, alla fine, il disegno 
di 320 x 200 pixel. 

Nel Chunk Body dei file IFF, invece, i 
dati sono disposti come segue: 40 byte 
che rappresentano il disegno della prima 
linea di 1 pixel, seguiti da altri gruppi di 
quaranta byte (a seconda del numero di 
bitplane) sempre relativi alla prima linea; 
questi sono seguiti, a loro volta, da altri 
40 byte relativi ai punti della seconda 
linea di 1 pixel, anche questi seguiti da 
altri gruppi di 40 byte a seconda del nu- 
mero di bitplane. La sequenza viene ri- 
petuta per 200 volte fino a definire un 
intero disegno di 320 x 200. 

Conversione 

I l programma presentato in queste pa- 
gine (e che gira, ovviamente, su Amiga) 
si occupa della "traduzione” di schermate 
del C/64 (in formato Print Shop) in for- 
mato IFF. 

Dapprima è necessario trasferire il file 
contenente i dati della schermata da 
C/64 ad Amiga (servendosi di utility del 
tipo Dos2Dos oppure 64 Emulator op- 
pure utilizzando un cavetto Rs-232 colle- 
gato tra i due computer); quindi sarà suf- 
ficiente lanciare il programma. 

Dopo aver richiesto i nomi dei due file, 
il primo da interpretare (proveniente dal 
C/64) ed il secondo da registrare (da 
"trattare", in seguito, con 
Amiga), scrive in quest'ul- 
timo i dati fissi riguardanti 
BMHD e CMAP (320 x 
200, bitplane = 1 , colori fis- 
si). 

Quindi legge il file sor- 
gente visualizzandolo, 
mettendo ogni singolo by- 
te nella variabile V (colon- 
na, linea della casella). 

Dopo aver letto 320 byte 
(cioè 40 colonne x 8 linee), 
provvede a registrare il file 
nel formato IFF. 

A programma termina- 
to, sul dischetto sarà pre- 
sente il nuovo file IFF con- 
tente il disegno rielabora- 
to, da manipolare, even- 
tualmente, servendosi di 
un qualsiasi programma 
grafico in grado di elabora- 
re immagini IFF. 
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Di solito si pensa che un programma grafico 
in assembler debba esser lungo e complesso; 
provvediamo a sfatare questo luogo comune 


N elle scorse chiacchierate abbiamo 
visto alcune istruzioni che permetto- 
no di confrontare valori (CMP) tra loro, 
quindi la modifica di tali valori (INC / DEC) 
e la possibilità di prendere decisioni a 
seconda dei risultati ottenuti (JC / JNC / 
JZ/JNZ). 

Inoltre abbiamo parlato anche dell’i- 
struzione INT, che serve per richiamare 
funzioni particolari del bios del PC. 

In queste pagine non vogliamo parlare 
di nuove istruzioni assembler, ma di altre 
interessantiapplicazioni dell'istruzione 
INT, con un programmino di esempio che 
fa uso di parecchie delle istruzioni appre- 
se sinora. 

□ □ 

La volta scorsa 

R iportiamo, di seguito, una breve de- 
scrizione dell’istruzione INT, per chi 
non avesse sottomano il fascicolo prece- 
dente (ma che aspettate a procurarvi gli 
arretrati?). 

L'istruzione serve per richiamare alcu- 
ne delle routines presenti nel bios (cioè 
le Rom montate nel computer dal fabbri- 
cante del computer) o nel dos (parte 
software caricata automaticamente al 
momento del Boot di sistema) oppure 
delle routines costruite dal programmato- 
re per svolgere determinati compiti. 

Tutto ciò al fine di sfruttare, in propri 
programmi, routines già costruite e resi- 


denti (in un modo o nell’altro) nel vostro 
PC. 

INT si usa... 

INT Interrupt 

...in cui INT è il codice mnemonico 
dell’istruzione, abbreviazione dell’ingle- 
se INTerrupt, ossia interruzione. 

Interrupt è il numero dell’interruzione 
da richiamare, e può essere solo un 
valore immediato. 


I vari parametri da passare all’istruzio- 
ne vengono immessi nei registri (AX, BX, 
CX, ecc.). 

Le funzioni di cui ci occuperemo sta- 
volta sono dedicate, principalmente, ad 
una semplice gestione della grafica. 

INT 10h, Funzione 0 

Impostazione modo video; questa fun- 
zione viene utilizzata per decidere in che 


Modo (HEX) , 

Tipo (T/G) , 

Colori, 

Scheda, 

Formato video 

o 

o 

T, 

2, 

COLORE, 

40x25 

01, 

T, 

16, 

COLORE, 

40x25 

02, 

T, 

2, 

★ HA 

9 

80x25 

03, 

T, 

16, 

COLORE, 

80x25 

04, 

G, 

4, 

COLORE, 

320x200 

05, 

G, 

4, 

COLORE, 

320x200 

06, 

G, 

2, 

COLORE, 

640x200 

07, 

T, 

4, 

MDA/EGA, 

80x25 

08, 

G, 

16, 

PCjr, 

160x200 

09, 

G, 

16, 

PCjr, 

320x200 

0A, 

G, 

4, 

PCjr, 

640x200 

. OD, 

G, 

16, 

EGA, 

320x200 

0E, 

G, 

16, 

EGA, 

640x200 

0F, 

G, 

2, 

EGA, 

640x350 

10, 

G, 

16, 

EGA, 

640x350 

11, 

G, 

2, 

VGA, 

640x480 

12, 

G, 

16, 

VGA, 

640x480 

13, 

G, 

256, 

VGA, 

320x200 


Tabella 1. 1 formati del video e le loro caratteristiche 
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modo predisporre il video (testo o grafi- 
ca). I parametri da passare alla funzione 
sono: 

ah = 0 (Funzione 0) 

al = Modo 

Il Modo deve essere selezionato trami- 
te la tabella 1 . In questa, Modo rappre- 
senta il valore esadecimale da inserire 
nel registro Al prima di richiamare l’inter- 
rupt; Tipo è T (testo) oppure G (grafica); 
Colori è il numero di colori utilizzabile in 
quel modo; Scheda è la scheda video 
necessaria per utilizzare il modo; Forma- 
to video è la dimensione del video, 
espressa in pixel (per i modi grafici) op- 
pure in caratteri (per i modi testo). 

Per esempio, per imporre la grafica 
640 x 200 monocromatica, bisognerà 
programmare: 

mov ah, 0 /Funzione 0 

mov al, 6 /Modo 6 

int lOh /Esegue la funzione 

Si rammenta che il modo testo normale 
del video, per uno schermo 80 x 25, è il 
modo 3. In caso di monitor RGB, non c’è 
differenza tra i modi 0 e 1 oppure tra i 
modi 2 e 3. In caso di scheda EGA, i modi 
consentiti variano solo da 0 a 6 e da ODh 
alOh. 

Se il bit più alto del registro Al è posto 
a 1 , il display non viene cancellato quan- 
do si entra in un modo grafico. Questo 
permette di creare effetti interessanti, 
mescolando, sul video, caratteri di di- 
mensioni differenti. 


COLORE, 

DESCRIZIONE 

0, 

Nero 

1, 

Blu 

2, 

Verde 

3, 

Azzurro 

4, 

Rosso 

5, 

Porpora 

6, 

Marrone 

7, 

Bianco 

8, 

Grigio 

9, 

Blu brillante 

io. 

Verde brillante 

11# 

Azzurro brill . 

12, 

Rosso brillante 

13, 

Porpora brill . 

14, 

Giallo 

15, 

Bianco brillante 


Tabella 2.1 codici dei colori 


/ DRAW.ASM: 

Disegna in grafica 

sullo schermo 

/ tramite i 

tasti W, A, D, X 


• 

# 

C 

cambia colore, ESC finisce 

• 

9 

NB 

: TENERE CAP S- LOOK INSERITO! 

cseg 

SEGMENT PARA PUBLIC ' 

CODE' 


org 

lOOh 



ASSUME cstcseg, ds:cseg, ss:cseg, es:cseg 

Start : 





mov 

AX, CS 



mov 

DS, AX 

/DS * CS 


mov 

ES, AX 

/ES ^ CS 


mov 

Xpos, 100 /Posizione X, Y iniziale = 100, 100 


mov 

Ypos, 100 



mov 

Colore, 02h 

/Comincia con colore Olh 




; (Sfondo nero, pixel verde) 


mov 

Vmode, lOh 

/Modo grafico iniziale 


cali 

VideoMode 

/Mette in grafica 

AltroPixel : 





mov 

ah, Och /INT 

lOh, funzione OC: Disegna pixel 


mov 

al, Colore /Colore del pixel 


mov 

ex, Xpos /Coordinate X, Y 


mov 

dx, Ypos 



int 

lOh /Richiama interrupt 


mov 

ah, 8 /Accetta un carattere da tastiera 


int 

21h /Richiamo int. DOS (Carattere in al) 


cmp 

al, 'W' 

/Tasto "W"? 


jnz 

NoW 

/No : avanti 


dee 

Ypos 

/Si : Decrementa posizione Y 


jmp 

short Alt roPixel 

/Riprende il ciclo 

NoW: 

m 

cmp 

al, 'X' 

/Tasto "X"? 


jnz 

NoX 

/No : avanti 


ine 

Ypos 

/Si : Incrementa posizione Y 


jmp 

short AltroPixel 

/Riprende il ciclo 

NoX : 

cmp 

al, ' A' 

/Tasto "A"? 


jnz 

NoA 

/No : avanti 


dee 

Xpos 

/Si : Decrementa posizione X 


jmp 

short AltroPixel 

/Riprende il ciclo 

NoA: 

cmp 

al, 'D' 

/Tasto "D"? 


jnz 

NoD 

/No : avanti 


ine 

Xpos 

/Si : Incrementa posizione X 


jnp 

short AltroPixel 

/Riprende il ciclo 

NoD: 

cmp 

al, 'C' 

/Tasto "C"? 


jnz 

NoC 

/No : avanti 


cmp 

Colore, 15 

/Colore =15? 


jnz 

NoCoi,15 

/No : salta 


mov 

Colore, 0 

/Si : Azzera colore 


jmp 

short AltroPixel 

/Riprende il ciclo 

NoColl5 : 

ine 

Colore 

/Incrementa colore 


jmp 

short AltroPixel 

/Riprende il ciclo 

NoC: 

cmp 

al, 27 

/Tasto ESC? 


jnz 

AltroPixel 

/No : riprende il ciclo 


mov 

Vmode, 3 

/Si : rimette in modo testo 
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cali 

VideoMode 


mov 

ah, 4Ch 

/Ritorna al DOS 

mov 

al, 0 


int. 

21h 


/Subroutine VideoMode: Setta 

il modo del video 

VideoMode : 



mcv 

ah, 0 

/INT lOh funz. 0 : Set video mode 

mov 

al, Vmode 

/ Modo 

int 

lOh 

/Richiama interrupt 

ret 


/Ritorno al programma principale 

/ Dati usati dal 

programma 


Xpos 

DW 0 

/Posizione x 

Ypos 

DW 0 

/Posizione Y 

Colore DB 0 

/Colore del pixel 

Vmode DB 0 

/Modo grafico 

cseg ENDS 



END 

Start 



INTIOh, Funzione OCh 

Questa funzione è usata per disegnare 
un pixel (ossia un singolo punto) sullo 
schermo grafico. Ovviamente funzionerà 
solo se è stato prima selezionato uno dei 
modi grafici tramite INT lOh funzione 0, 
come descritto prima. I parametri da pas- 
sare alla funzione sono: 
ah * OCh (Funzione OC) 
al = Colore del pixel 

ex = Coordinata X 

dx = Coordinata Y 

Il Colore deve essere selezionato tra- 
mite la tabella 2. 

Ovviamente tutti i colori funzioneranno 
solo sulle schede video e nei modi video 
che permettono il settaggio imposto (cioè 
in accordo con il numero di colori per- 
messi, per ogni modo video, come nella 
tabella 2). 

Le coordinate del pixel, come intuitivo, 
devono rientrare nei limiti leciti per il mo- 
do video selezionato. Per accendere, ad 
esempio, il pixel alla posizione (x, y) 130, 
100 dello schermo, bisognerà scrivere le 
seguenti istruzioni: 
mov ah, OCh /Funzione OC 
mov al, 4 /Colore ROSSO 
mov ex, 130 /Coordinate 
mov dx, 100 

int lOh /Esegue la funzione 

Se le coordinate vanno "fuori" dallo 
schermo, ossia dai limiti permessi da 
quel modo video, il pixel non sarà visibile. 

Nei modi video che non offrono 16 
colori, i valori da inserire nel parametro 
Colore (reg. Al) potranno variare tra 0 ed 
il numero di colori -1. 

Se si setta a 1 il bit 7 del registro Al, il 
pixel verrà disegnato eseguendo un Or 
esclusivo (Xor) con il precedente conte- 
nuto della locazione di schermo. 

INT 21 h, Funzione 08h 

Input carattere senza eco. Questa fun- 
zione viene utilizzata per inserire un ca- 
rattere da tastiera, senza produrne l’eco 
sul video. I parametri da passare alla 
funzione sono: 

ah = 08h (Funzione 8) 

La funzione restituisce in Al il codice 
(ascii) del carattere introdotto da tastiera. 

Per leggere, ad esempio, un carattere 
il programma assembler da digitare sarà 
il seguente: 

mov ah, 08h /Funzione 8 

int 2ih /Esegue la funzione 

/ al = codice carati . digitato 


mov Caratt, al /Salva in 

/"Caratt" il carattere 
/ int rodotto 

La funzione arresta l’esecuzione del 
programma fino a quando non viene in- 
trodotto un carattere. Se si premono i 
tasti Ctrl-c viene prodotto un Int 23h ed il 
programma in esecuzione termina. 

INT 21 h, Funzione 4Ch 

Termina con codice di ritorno. Questa 
funzione permette di interrompere il pro- 
gramma in esecuzione e di ritornare al 
DOS o al programma chiamante. I para- 
metri da passare alla funzione sono i 
seguenti: 

ah ■ 4Ch (Funziona 4C) 

al = Codice di ritorno (Norma Ina . 0) 

Il codice di ritorno può essere interpre- 
tato in procedure Batch con istruzioni del 
tipo If Errorlevel e quindi può essere esa- 
minato per stabilire se un programma è 
andato a buon fine oppure no. La funzio- 
ne si usa nel seguente modo: 

mov ah, 4Ch /Funzione 4C 
mov al, 0 /Codice di ritorno 
; (Normalmente C) 
int 21h /Ritorna al prog. 
/chiamante 

Nell’uso dell’istruzione INT bisogna fa- 
re moltissima attenzione innanzitutto a 
richiamare interrupt "esistenti" ed inoltre 
a passare correttamente i parametri a 
questi ultimi. Se si richiama un interrupt 


non esistente, oppure si passano para- 
metri errati, il PC potrebbe inchiodarsi, 
costringendo quindi a resettare. 

□ □ 

Un esempio completo 

I l programma che proponiamo questo 
mese cancella lo schermo ed impone il 
modo grafico, disegnando un pixel verde 
alla posizione 100, 100 dello schermo. 
Quindi si mette in attesa di un tasto, e a 
seconda di questo, prende le seguenti 
decisioni: 

Tasto W : Muove in alto e disegna un pixel 
Tasto 'X' : Muove in basso e disegna un pixel 
Tasto ’D' : Muove a destra e disegna un pixel 
Tasto ’A' : Muove a sinistra e disegna un pixel 
Tasto C' : Cambia colore 
Tasto ESC : Torna al DOS 

In pratica il programma consente di 
creare disegni perché, muovendo il cur- 
sore tramite i tasti W, X, A, D, si realizza 
una scia di pixel colorati. Il tasto C con- 
sente di "spazzolare" i colori da 0 a 15. 
Ogni volta che si preme C, il colore verrà 
incrementato. 

Premendo il tasto Esc il video torna in 
modo testo, e si ritornerà al DOS. 

□ □ 
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Il listato 

I l programma assembler è pubblicato 
nell’apposito riquadro; esaminiamolo. 
All’inizio ci sono le "solite" inizializza- 
zioni dei registri di segmento DS ed ES, 
di cui ci siamo occupati in precedenza. 
Le successive 3 istruzioni (mov . . . ) ini- 
ziavano le coordinate di partenza X, Y 
(100, 100) ed il colore verde (3). 

L’istruzione "Cali videoMode" attiva 
la subroutine omonima per settare il vi- 
deo nel modo specificato dalla variabile 
Vmode (in questo caso, 1 0h = Grafica 1 6 
colori 640 x 350, scheda EGA). 

Il lettore dovrà ovviamente utilizzare un 
modo video compatibile con la sua sche- 
da grafica. 

Il successivo passo richiama l’interrupt 
lOh, funzione OCh, che traccia il pixel 
alle coordinate Xpos e Ypos nel Colore. 

Una volta disegnato il pixel, tramite 
l’interrupt 21 h funzione 8 si aspetta la 
pressione di un tasto e questo viene 
quindi memorizzato nel registro Al. 

I successivi blocchi consentono di con- 
trollare il carattere premuto: CMP Al,.. 
JNZ consentono di ignorare il tasto non 
specificato in CMP (ricordiamo che JNZ 
salta se il risultato è diverso da quello 
specificato). I vari INC / DEC servono per 
aggiornare la posizione del cursore a 
seconda del tasto premuto; quindi JMP 
SHORT torna ad eseguire il ciclo. 

In caso di pressione del tasto C, viene 
controllata la locazione Colore: se è 1 5 


(ultimo colore permesso) viene messa a 
0, altrimenti viene incrementata. 

Se il tasto premuto è ESC (codice 27), 
viene rimesso lo schermo in modo testo 
80 X 25 (mov Vmode, 3. . . cali Vi- 
deoMode) e quindi si ritorna al DOS (int 
21 h, funz. 4Ch). 

NB: Dal momento che i controlli sui 
tasti vengono fatti con lettere maiuscole, 
il tasto Caps Lock deve essere premuto 
prima di mandare in esecuzione il pro- 
gramma, altrimenti i tasti W, A, X, D, C 
non verranno riconosciuti. 


I limiti delle coordinate non vengono 
controllati, quindi sarà possibile spostare 
il cursore fuori dallo schermo. Sarà cura 
del lettore modificare il programma di 
conseguenza, inserendo opportune 
istruzioni CMP... JZ / JNZ nei punti giusti 
del programma. 

Dopo aver digitato il programmino, lo 
si può registrare con il nome Draw.asm e 
quindi lo si può compilare tramite le istru- 
zioni: 

MASM DRAW; 

LINK DRAW; 

EXE2BIN DRAW . EXE DRAW.COM 
DEL DRAW.EXE 

Richiamando il programma da dos con 
il comando Draw potremo renderci esat- 
tamente conto del suo corretto funziona- 
mento. Se tutto è andato bene, vedremo 
lo schermo cancellarsi e mettersi in modo 
grafico, e quindi potremo iniziare a 
schiacciare i vari tasti di movimento e di 
cambio colore per osservare gli effetti 
sullo schermo. 

Premendo il tasto C da solo si incre- 
menta il colore, quindi in alcuni modi 
video potrebbe essere non permesso o 
non visibile. Sarà ancora cura del lettore 
limitare il cambio di colore al numero di 
colori permessi dal modo video imposta- 
to. Il programma, così com’è pubblica- 
to, è predisposto per girare su scheda 
EGA 640x350 16 colori. 
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di Giancarlo Mariani 



Vari modi, in altrettanti 
linguaggi, di inviare 
files su stampante o 
su video 


D urante la carriera di un programma- 
tore, sia esso dilettante o professio- 
nista, quasi sempre capita di sviluppare 
programmi che accedono alla stampan- 
te, vuoi per realizzare tabulati, per effet- 
tuare copie dello schermo, e così via. 

In programmi di questo genere sono 
spesso inserite subroutines diverse per 
accedere al video oppure alla stampante, 
anche perchè, normalmente, un foglio di 
carta può contenere un maggior numero 
di informazioni rispetto ad una pagina 
video, e quindi il formato dei dati stampa- 
ti, o visualizzati, dovrà essere diverso. 

Comunque, per molte ragioni, può es- 
sere comodo utilizzare le stesse proce- 
dure sia per scrivere su video che su 
carta, in modo che un'eventuale modifi- 
ca al formato di visualizzazione si ripro- 
duca immediatamente anche su carta, e 
viceversa. 


Vediamo come sia possibile ciò nei 
vari linguaggi: 

GwBasic e QuickBasic 

C ome tutti dovrebbero sapere, l’istru- 
zione Basic Print consente di scrive- 
re, su video, valori numerici e stringhe 
alfanumeriche. Simile a questa, esiste la 
corrispondente istruzione Print #, che 
serve per scrivere su di un file. 

Quello che forse non tutti sanno, inve- 
ce, è che è possibile aprire dei files non 
solo su disco, ma anche su video e su 
stampante, consentendo quindi di utiliz- 
zare, tra le altre. Print# per scrivere sulle 
due periferiche. 

In Basic, l'istruzione... 

OPEN "som : " FOR OUTPUT AS #xx 

...ove xx è il numero del file, apre il file 
numero xx (compreso tra 1 e 15) sullo 


schermo, quindi qualsiasi istruzione 
Pr int #xx effettuata dopo Open produr- 
rà una visualizzazione sullo schermo. 

Analogamente, l’istruzione... 

OPEN "lpt1:" FOR OUTPUT AS «xx 

...apre il file numero xx sulla stampan- 
te, quindi qualsiasi istruzione Print #xx 
effettuata dopo Open produrrà un’uscita 
su carta. 

Quindi, inserendo opportunamente nel 
programma una domanda del tipo "Vuoi 
stampare o visualizzare" e settando il 
parametro di Open a scrn: oppure lpt1: 
sarà possibile utilizzare la stessa proce- 
dura per scrivere su video o su stampan- 
te. 

Un esempio di questa applicazione è 
dato nel listato LPrint.bas, riportato in 
queste pagine. 

Il listato è semplicissimo: tramite l’Input 
di riga 40, viene richiesto se si vuole 


{ LPRINT . PAS - Borland' s Turbo-Pascal 5.5) 

{Prova di scrittura su video e stampante) 
{ Controlla se la stampante e' collegata} 

uses crt,dos; 

var 

stream: text; 
a : char; 
b: st ring (4 ) ; 
regs : Registers ; 
v: integer; 
begin 
clrscr ; 

write ('Video (V) o Stampante (S)? '); 
readln (a) ; 
b : = ' ' ; 

if (a='S') or (a»'s') then 


begin 

regs . AH:=1 ; 
regs .AL: =0; 
regs . DX : =0; 

int r (23, regs) ; { 0x17 ) 
v : -regs . AH; 

if ( (v and 8) <>0) then 
writeln('La stampante e' spenta o non e 
collegata' ) 
else 

b:=' prn' ; 
end; 

assign (stream, b) ; 
rewrite (stream) ; 

writeln (stream, ' Pippo e' andato al mare 
a pescare . ' ) ; 
dose (stream) ; 

end. 
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l’uscita su video o su stampante; la riga 
60 decide il valore della variabile B$ a 
seconda della risposta data. 

Le righe da 1 00 a 1 20 aprono il file sulla 
periferica selezionata (video o stampan- 
te), quindi scrivono una stringa di esem- 
pio e chiudono il file. 

Pascal (Turbo, Quick) 

L e istruzioni Pascal Write e Writeln 
consentono, al pari di Print del Basic, 
la scrittura di testi e dati, sia su schermo 
che su file. 

Anche nel caso del Pascal, come nel 
Basic, se vogliamo utilizzare le stesse 
procedure per scrivere su schermo e su 
stampante, dovremo aprire un file ed uti- 
lizzare le due istruzioni per scrivere sul 
file. 

In Pascal, la coppia di istruzioni... 

assign (st ream, ' ' ) ; 
rewrite (stream) ; 

...apre il file stream (che deve essere 
definito come text) sullo schermo (stand- 
ard output), quindi qualsiasi istruzione 
write (stream,...) oppure wri- 
teln (stream, . . .) effettuata dopo le 
due istruzioni viste prima produrrà un’u- 
scita sullo schermo. 

Le istruzioni... 

assign (stream, ' prn' ) ; 
rewrite (stream); 

...aprono il file stream (che deve esse- 
re definito come text) sulla stampante, 
quindi qualsiasi istruzione write 
(stream,...) Oppure writeln 
(stream, . . . ) effettuata dopo le due 


istruzioni viste prima produrrà un’uscita 
sulla stampante. 

Il programma in pascal LPrint.pas fun- 
ziona più o meno come quello in Basic, 
facendo la domanda "Video o Stampan- 
te?" e quindi assegnando la variabile b 
alla stringa nulla ("") oppure a "prn" a 
seconda della risposta. 

C (Turbo, Quick) 

L ’istruzione C printf consente, al pari 
di Print del Basic, la scrittura di testi 
e dati su schermo, mentre la corrispon- 
dente fprintf, su file. 

In questo caso, per utilizzare le stesse 
procedure sia per la visualizzazione che 
per la stampa, andrà utilizzata l’istruzio- 
ne fprintf che. con parametri opportuni, 
consente di scrivere su video o su stam- 
pante. Nel caso del C non è però neces- 
sario aprire dei files, dato che il video e 
la stampante sono considerati stream 
sempre aperti. 

In C, l’istruzione... 

fprintf (stdout, ); 

...produrrà l’uscita su standard output, 
quindi su schermo. 

Invece, l’istruzione... 

fprintf (stdprn, ); 

...produrrà un'uscita su stampante. 

In generale, l’istruzione è... 

fprintf (stream, ); 

...dove stream é il file, che può assu- 
mere appunto diversi valori. Il program- 
ma di esempio LPrint.C è un esempio di 
quanto detto. Il suo funzionamento è si- 
mile ai precedenti: a seconda della rispo- 


sta data alla domanda "Video o Stam- 
pante" assegna il valore stdout oppure 
stdprn alla variabile stream. e quindi 
con fprintf (stream,....) scrive 
una stringa sulla periferica desiderata. 

Se la stampante non c’è 

V olendo scrivere dati sulla stampante 
è necessario che questa... sia colle- 
gata al computer, accesa e con la carta 
inserita, altrimenti le istruzioni... 

Print * 

write / writeln (stream, ....); 
fprintf (stream,...); 

...producono errore di I/O ed il pro- 
gramma termina immediatamente. 

Esiste però un sistema per controllare 
la presenza di una stampante attiva; con- 
siste nell’usare l'interrupt 17h. richia- 
mandolo con il registro AH = 1 e con il 
registro DX = 0. In questo modo si attiva 
una routine presente nel Bios del PC che 
inizializza la porta parallela e ne controlla 
lo status. La routine restituisce nel regi- 
stro AL del processore i seguenti flags: 

bit Significato 
0 = time out 
1 = N.U. 

2 = N.U. 

3 = i/o error. 

4 = Stampante selezionata 
5 = Fine della carta 
6 = Acknowledge 
7 = Stampante non occupata 


DEFINT A-Z 

' lprintqb.bas 

'Prova di scrittura su video e su 
'stampante con controllo starno, presente. 

' Solo QuickBasic 

9 

'richiamare qb con "qb /lqb" 

' $ INCLUDE : 'd:\qb4\qb.bi' 

DIM InRegs AS RegTypeX 
DIM OutRegs AS RegTypeX 
DIM Outp AS LONG 

CLS 

INPUT "Video (V) o Stampante (S)"; a$ 
b$ = "scrn: " : 


IF UCASE$(a$) = "S" TKEN 
InRegs. AX = &H100 
Ir.Regs.DX « 0 

CALL InterruptX (&H17, InRegs, OutRegs) 
a$ = LEFTS (HEXS (OutRegs. AX) , 2) 
a = VAL("&h" + a$) 

IF (a AND 8) <> 0 THEN 

PRINT "La stampante e' spenta c non e' 
coliegata" 

ELSE 

b$ " "lpt1:" 

END IF 
END Ir 

OPEN b$ FOR OUTPUT AS *1 

PRINT #1, "Oggi Pippo e' ar.catt al rare’ 

CLOSE #1 
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Se la stampante non è presente, oppu- 
re è in off-line verrà settato il bit 3 del 
registro AH (i/o error) consentendo così 
di evitare l'errore. Ma come fare a richia- 
mare la funzione nei vari linguaggi? 

QuickBasic 

I n QuickBasic esiste una libreria stand- 
ard (fornita assieme al programma) 
chiamata qb.qlb che contiene varie istru- 
zioni dedicate al richiamo degli interrupt. 

Per utilizzare la libreria, il QuickBasic 
va richiamato con il parametro 71" e quin- 
di va specificato il nome della libreria. Un 
comando per richiamare il qb, quindi, 
potrebbe essere... 

qb /I qb.qlb 

...che richiama il linguaggio utilizzando 
la libreria qb.qlb. 

Nel programma che utilizza la libreria 
deve essere inoltre inserita la riga: 

' INCLUDE : 'qb.bi' 

...che, appunto, include nel file Basic 
sorgente alcune definizioni sulle nuove 
istruzioni aggiunte. 

L'istruzione che ora interessa, tra quel- 
le aggiunte, è la Interruptxche consente 
di richiamare un interrupt da Basic, spe- 
cificando i registri di ingresso e quelli in 
uscita. 

I registri devono essere contenuti in 
variabili dichiarate di tipo RegTypeX; un 
programma in QuickBasic che, pertanto, 
voglia richiamare un interrupt, deve con- 
tenere le seguenti istruzioni: 

# SINCLUDE : ' qb.bi ' 

DIM InRegs as RegTypeX 
'Registri in ingresso 
DIM CutResg as RegTypeX 
'Registri in uscita 


InRegs. AX ** xxxx 'Definizione 

parametri in 


InRegs. DX = yyy 'ingresso 

InRegs. CX = xxx 

CALL InterruptX (Interrupt, 

InRegs, OutRegs) 

I parametri in uscita verranno memo- 
rizzati nella variabile OutRegs. 

T ramite InRegs e OutRegs si possono 
leggere e settare tutti i registri del proces- 
sore 80X86 tranne CS e SS. Le forme di 
scrittura saranno, ad esempio... 

InRegs. AX= xxxx xxxx= OutRegs. AX 
InRegs. BX= xxxx xxxx= OutRegs. BX 

...nel caso dei registri AX e BX in in- 
gresso ed in uscita (rispettivamente). 
Considerazioni del tutto simili varranno 
per gli altri registri disponibili (CX, DX, 
BP, SI, DI, FLAGS, DS, ES) identificabili 
con due o un solo byte. 

Per svolgere la funzione vista prima 
(controllo dello status della stampante) 
bisognerà quindi scrivere un programmi- 
no simile al seguente: 

'$ INCLUDE: 'qb.bi' 

DIM InRegs AS RegTypeX 
DIM OutRegs AS RegTypeX 


AH-1 

'Legge lo status della 
'porta parallela dopo averla 
' inizializzata . 

InRegs. AX = ihOiOO 
InRegs. DX ** 0 
'Chiama 1' interrupt 17h 
CALL 

InterruptX Uhl7, InRegs, OutRegs) 

'Legge il valore in ritorno (AH) 

Valore = OutRegs. AX 

'Sposta il valore 

'nella parte bassa 

ValoreS = LEFT$ (HEX$ (Valore, 2) ) 

Valore = VALr&h" + ValoreS) 

'Controlla il bit 3 (i/o error) 


IF (Valore AND 8) <> 0 THEN 
Print "Stampante non collegata" 

Si può, inoltre, studiare il programmino 
di esempio (LPrintQB.BAS) per vedere 
come funziona l’intera procedura. 

Pascal (Turbo / Quick) 

A nche in Pascal esiste una libreria 
standard, chiamata Dos, che contie- 
ne le istruzioni per accedere agli inter- 
rupt. 

L’istruzione è intr, mentre i registri in 
ingresso ed in uscita devono essere con- 
tenuti in una variabile dichiarata di tipo 

Reglster. 

Un programma in Pascal che voglia 
richiamare un interrupt deve contenere le 
seguenti istruzioni: 

uses dos; 

var Regs: Regi ster; 


Regs.AX xxxx; ( Definizione 
parametri in ) 

Regs.DX := yyy; (ingresso) 

Regs.CX := xxx; 

Intr (Interrupt, Regs); 

I parametri in uscita sono ancora pre- 
senti nella variabile Regs. 

Tramite Regs si possono leggere e 
settare tutti i registri del processore 
80X86, anche nelle forme ad 8 bit. Le 
forme di scrittura, quindi, saranno analo- 
ghe a quelle viste prima (Regs.AX : = 
xxxx xxxx := Regs.AX; Regs. AH 
: = xx xx : » Regs . AH; e COSÌ via). 

Per svolgere la funzione vista prima 
(controllo dello status della stampante) 
bisognerà quindi scrivere un programmi- 
no del genere: 

uses dos; 

var Regs :Register; 

Valore : integer; 


( AH- 1 : Legge lo status della 
porta parallela dopo averla 
inizializzata ) 

Regs. AH := 1; 

Regs. AL : = 0; 

Regs.DX := 0; 

( Chiama 1' interrupt 17h 
(decimale 23) ) 
intr (23, Regs); 


10 REM lprint.bas 

20 REM Prova di scrittura su video e su stampante. 

25 GWBASIC /QUICKBASIC 

40 CLS 

50 INPUT "Video (V) o Stampante (S)"; aS 
60 b$ = "som:": IF a$ = "S" THEN b$ = "lpt1:" 

100 OPEN b$ FOR OUTPUT AS #1 

110 PRINT #1, "Oggi Pippo e' andato al mare" 

120 CLOSE #1 
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( Legge valore di ritorno (AH) } 
Valore Regs.AH; 

(Controlla il bit 3 (i/o error) } 
IF ((Valore AND 8) <> 0) THEN 

WRITELN (' Stampante non 
col legata' ) ; 

Si può controllare il programmino di 
esempio LPrlnt.PAS per vedere come 
funziona il tutto. 


InC 


O vviamente anche in C non poteva 
mancare la libreria contenente le 
istruzioni per gestire l’interrupt. 

La libreria si chiama ancora Dos e, tra 
le altre, contiene un’istruzione chiamata 
geninterruptche provvede a richiamare 
l’interrupt desiderato. 

In Turbo-C non è necessario definire 
una variabile per contenere i registri di 
ingresso e uscita, dal momento che ba- 
sta specificare il nome del registro prece- 
duto dal carattere underscore (_, cioè il 
trattino basso). 

Un programma in Turbo-C che voglia 
richiamare un interrupt deve contenere le 
seguenti istruzioni: 

((include <dos.h> 


_AX = xxxx; /*Def inizione 
parametri in ingresso*/ 

DX =3 yyy ; 

CX ■ xxx ; 



geninterrupt (Interrupt); 

I parametri in uscita sono contenuti 
nelle variabili chiamate come i registri e 
precedute dal carattere underscore. 

Tramite le variabili registro si possono 
leggere e settare tutti i registri del proces- 
sore 80X86, anche nelle forme ad 8 bit. 
Le forme di scrittura quindi saranno an- 
cora simili a quelle già viste in preceden- 
za; esempio:_AX = xxxx xxxx = _ax; 
ah = xx xx = ah; e così via. 

Per svolgere la funzione vista prima 
(controllo dello status della stampante) 
bisognerà quindi scrivere un programmi- 
no del genere: 

((include <dos.h> 
unsigned int Valore; 


/* AH-1 : Legge lo status della 
porta parallela dopo averla 
inizializzata */ 

_AH - 1; 

AL - 0; 

_DX = 0; 

/* Chiama 1' interrupt 17h */ 
geninterrupt (0x17); 

/* Legge il valore in ritorno 
(AH) */ 

Valore - _AH; 

/•Controlla il bit 3 (i/oerror)*/ 
if ( (Valore && 8) != 0) 

printf ("Stampante non 
collegata\n") ; 

Si può controllare il programmino di 
esempio LPrlnt.C per vedere come fun- 
ziona il tutto. 


/* Lprint.c - Borland' s Turbo-C 2.0 

scanf ("%c", &a) ; 

*/ 

stream=stdout ; 

/* Permette di scrivere su video o su 

if (a=='S' | 1 a=='s') 

stampante*/ 

{ 

/♦Controlla se la stampante e' presente*/ 

AH=1 ; 


_AL=0; 

tinclude <stdio.h> 

DX=0 ; 

#include <conio.h> 

geninterrupt (0x17) ; 

#include <dos.h> 

v= AH; 


o 

II 

00 

•H 

void main() 

printf ("La stampante e' spenta o non e' 

{ 

collegata\n" ) ; 

FILE *stream; 

else 

char a; 

stream=stdprn; 

unsigned int v; 

} 


fprintf (stream, "Pippo e # andato al mare a 

clrscr ( ) ; 

pescare\n") ; 

printf ("Video (V) o Stampante (S) ? ”); 

} 
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Principianti Ms - Dos 




di Alessandro Marrano 



La stesura di semplici 
file batch sono di aiuto 
per i principianti 


E ’ noto che i file Ascii contenenti i 
comandi del Dos rappresentano veri 
e propri programmi, attivabili direttamen- 
te digitandone il nome, pur se viene 
omesso il suffisso .BAT. 

Invitiamo i lettori, specie se principinati, 
a documentarsi in merito esaminando il 
manuale di istruzioni del proprio compu- 
ter Ms - Dos compatibile. 


D.BAT 

Sintassi: D [drive:] [pathname] 

0 ECHO Digita: D [drive:] [ PATH ] 

0 ECHO Directory completa 
0 ECHO su patii "ai" 

0 DIR %1 /P 
? EXIT 

N.B: registrare questo file 
con il nome D.BAT 

Il "comando" D.BAT serve a visualiz- 
zare una directory tramite il comando Dir, 
usato nella sua sintassi più frequente e 
cioè con lo switch /P che interrompe il 
listing alla fine di ogni pagina video. 

Questo primo file, di estrema semplici- 
tà, serve per vedere alcune cose interes- 
santi. La prima è la "variabile" %1 che, 
nel caso di un file di tipo batch, conterrà 
il gruppo di caratteri digitati dopo il nome 
del file stesso (nel nostro caso il Path, 
eventualmente preceduto dal drive); la 
seconda è il carattere di chiocciola (<g>) 
presente all’inizio di ogni riga del file. 
Questo carattere rappresenta una ma- 
niera più elegante (e nella programma- 
zione la cosa non guasta) per impedire 
l’emissione a video dei comandi che a 
mano a mano vengono eseguiti, evitan- 
do così anche la fastidiosa visualizzazio- 
ne del comando Echo Off. 

Un altro sistema per ottenere lo stesso 
risultato, è quello di usare, come sempre, 


Echo Off, preceduto però dal carattere 
chiocciola, che in questo modo non avrà 
più ragione di essere usato, fino ad un 
nuovo comando Echo On. L’ultimo co- 
mando è Exit che, come l’End del Basic, 
ha la funzione di chiudere il programma. 
Per esercizio, consigliamo ai principianti 
di modificare il file proposto in modo da 
utilizzare anche l’opzione /W, che per- 
mette di visualizzare solo i nomi dei files 
(privi della descrizione) fino a 5 per ogni 
riga video. 

E.BAT 

Sintassi: E estens. [drive:] [pathname] 

@ ECHO E estens. [drive:] [path] 

9 ECHO Directory dei files 
9 ECHC cor. est. "%1 M su path "%2" 
9 IF "%2" =- GOTO NOPATH 
0 DIR % 2 \ . $ 1 /P 
@ GOTO EXIT 
: NOPATH 
G DIR .%1 /P 
: EXIT 
0 EXIT 

N.B: assegnare a questo 
file il nome E.BAT 

Con il file E.BAT possiamo visualizza- 
re, sempre tramite il comando interno Dir, 
la directory di tutti i file aventi una parti- 
colare estensione, eventualmente spe- 
cificando anche il Path. 

Esaminando il primo file (D.BAT) ab- 
biamo visto che digitando un qualsiasi 
gruppo di caratteri dopo il nome di un file 
batch, questi possono essere richiamati, 
durante l’esecuzione, con la variabile 
%1 ; adesso possiamo notare la presen- 
za di un'altra variabile (%2) che conterrà 
il secondo gruppo di caratteri, eventual- 
mente digitati dopo il primo, e separati da 
questo con uno spazio. 

Nel nostro caso viene offerta la possi- 
bilità di specificare un drive e/o un path 
del quale visualizzare la directory sele- 


zionata. La terza riga del programma, 
tramite l’istruzione IF ed il simbolo di 
assegnazione uguale uguale (==) per- 
mette di verificare se è stato digitato an- 
che un secondo parametro dopo il primo: 
in caso negativo, avvalendosi dell’istru- 
zione goto, si effettua un salto all’etichet- 
ta specificata (NOPath); altrimenti, pro- 
seguendo normalmente, viene eseguito 
Dir assegnando a %2 il path specificato. 
Saltando all’etichetta Exit il programma 
termina. 

L1ST.BAT 

Sintassi: LIST filename.ext 

0 ECHO SINTASSI: LIST filename.ext 
0 ECHO File: %1 
@ TYPE %1 | MORE 
@ EXIT 

N.B: assegnare a questo 
file il nome LIST . BAT 

Abbiamo visto che quando dobbiamo 
visualizzare directory molto lunghe ab- 
biamo a disposizione l’opzione /P che 
permette di bloccare lo scorrimento su 
video in modo da non perdere informa- 
zioni. Per ottenere lo stesso scopo, il Dos 
mette a disposizione anche un altro siste- 
ma (il comando More) che, operando 
come un filtro, legge l’input che gli viene 
indirizzato, crea su disco un file tempora- 
neo nel quale viene memorizzato il con- 
tenuto, e poi lo visualizza una videata per 
volta (ne consegue che se il disco è 
protetto da scrittura, l’operazione non va 
a buon fine). Una frequente applicazione 
della procedura si verifica quando, con il 
comando Type, vogliamo esaminare a 
video il contenuto di un file Ascii. Il co- 
mando List.bat permette appunto di effet- 
tuare l’operazione associando a Type il 
comando More per ottenere l’interruzio- 
ne temporanea dell'emissione a video, 
senza doverlo digitare ogni volta. 
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La matematica 
sembra avere molti 
sostenitori; ecco 
lo studio, decisamente 
interessante, 
di un nostro "Amigo" 


L ’articolo di queste pagine, riguardan- 
te la matematica, è la logica conti- 
nuazione del programma apparso sul nu- 
mero 82, che riportava un listato atto al 
processo di "divisione infinita", ossia in 
grado di individuare un quoziente con un 
numero n di cifre decimali. 

Per completarlo (a parte il suggerimen- 
to di esaminare il lavoro di altri due lettori 
che hanno risposto esplicitamente alla 
sfida, ndr) si riporta il metodo per evitare 
alcuni sottili errori che si verificavano con 
tale programma, in particolare per quan- 
to riguardava il rilevamento delle cifre 
costituenti il periodo (basti menzionare il 
caso di... 

1 23 / 4567 = 0.02693234070505 
...in cui il computer forniva come perio- 
do il gruppo "05"). 

Poiché un periodo di due cifre è gener- 
ato solo da divisori multipli di 11, si rive- 


lerebbe necessario controllare tale eve- 
nienza. 

Analogamente, i periodi di tre cifre ven- 
gono generati solo dai divisori multipli di 
37, per cui è necessario un altro If ... 
Then; "falsi periodi" costituiti da un nu- 
mero maggiore di cifre compaiono molto 
raramente e solo con divisori molto gran- 
di, quindi si possono tranquillamente tra- 
lasciare. 

La modifica che si può suggerire (a 
coloro che hanno già digitato il listato del 
n. 82 e non hanno voglia di scrivere i pur 
semplicissimi programmi riportati su altra 
parte della rivista) riguarda le due righe 
seguenti: 

465 if x$*y$ and i>l and lan(x$)*2 
and dl/ll<>int (dl/11) then 530 
486 if x$«y$ and i>l and len(x$)«3 
and dl/37<>int (dl/37) then 530 


...che, pur non risolvendo compieta- 
mente il problema, rappresentano un va- 
lido surrogato. 

Moltiplicando 

I n queste pagine è presentato un pro- 
gramma di moltiplicazione (quasi) infi- 
nita, che serve, oltre che a giustificare il 
titolo dell’articolo, a determinare il pro- 
dotto di due numeri rappresentati da 
qualche centinaio di cifre decimali, ot- 
tenuti (magari) con il programma di divi- 
sione (quello comparso sul pluricitato n. 
82, per intenderci), come richiesto dalla 
sfida ivi lanciata. 

Grazie al formato di sottoprogramma, 
cioè totalmente trasportabile, sarà sem- 
plice calcolare moltiplicazioni di numeri 
interi molto grandi anche in vostri pro- 
grammi. 

Esaminiamo ora i principi logici che 
sono alla base del programma. 

L’algoritmo 

P oiché i numeri in gioco sono compo- 
sti da moltissime cifre, tali da non 
poter essere direttamente gestibili dal 
computer, è d’obbligo operare con le 
stringhe, e far eseguire al nostro Amiga 
le somme e le moltiplicazioni proprio co- 
me faremmo noi (umani) con carta e 
penna. 

I passi da compiere (algoritmo) sono i 
seguenti: 

1) si prende una cifra del secondo fat- 
tore (da destra verso sinistra, ordinata- 
mente); 

2) la si moltiplica per il primo fattore, 
cifra per cifra: 

3) il prodotto ottenuto è un risultato 
parziale, da moltiplicare per quella poten- 
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za di 1 0 ottenuta sottraendo 1 dalla n-esi- 
ma cifra della fase uno; 

4) finché non si raggiunge l'ultima cifra, 
si salta alla fase uno; 

5) si esegue la sommatoria dei risultati 
parziali. 

Più facile a farsi che a dirsi, dirà qual- 
cuno, ma l'attento lettore avrà notato che 
la fase cinque ha bisogno di una ulteriore 
definizione attraverso un algoritmo, in 
quanto essa non fa altro che svolgere 
delle somme fra numeri costituiti da varie 
centinaia di cifre; funzione, questa, non 
direttamente traducibile in Basic: 

a) si somma una cifra del primo adden- 
do (da destra verso sinistra, ordinata- 
mente) con la cifra corrispondente del 
secondo addendo e con il riporto prece- 
dente; 

b) si ottiene un numero di due cifre, di 
cui la prima (decine) è il riporto, mentre 
la seconda fa parte del totale; 

c) finché non si raggiunge l’ultima cifra, 
si salta alla fase a. 

Questi step si ritrovano pari pari (o 
quasi) nei sottoprogrammi dai nomi fan- 
tasiosi di Prodotto e Somma. 

Una precisazione sull’algoritmo di ad- 
dizione: i due addendi devono tassativa- 
mente essere interi, per garantirne il per- 
fetto incolonnamento (condizione indi- 
spensabile per un risultato corretto), il 
che è assicurato dalla fase tre. Gli algo- 
ritmi presentati valgono unicamente per 
la somma ed il prodotto di due numeri. 

Non resta infine che l’elevamento a 
potenza: poiché tale operazione è for- 
malmente denotata dal simbolo a b (dove 
a è la base e b è l’esponente), ed è 
definita come il prodotto a x a x a x ... b 
volte; esempio: 

13 5 = 13x 13x 13x 13x 13(5 volte) 

7 11 = 7x7x7x7x7x7x7x7x7x 
7x7(11 volte) 

Sarà dunque sufficiente ripetere b vol- 
te l’algoritmo di moltiplicazione tra due 
fattori. 

Il programma 

D al momento che il programma di 
moltiplicazione accetta in Input (an- 
che) i dati provenienti dal programma di 
divisione (immaginate se dovevate digi- 
tarli?), dovremo modificare quest’ultimo 
in modo che "scarichi" tali dati in un luogo 
da cui poi recuperarli: è stata scelta, co- 
me device di output, la ram disk, ma, a 
scelta, si può utilizzare anche un dischet- 
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to semplicemente sostituendo RAM: con 
DFO: (oppure con HD1: per l’hard disk) 
senza trascurare di specificare il percor- 
so completo ove memorizzare il file, se 
non lo si desidera nella directory princi- 
pale (root). 

Nel complesso, per rendere la primitiva 
versione del programma di divisione 
compatibile col programma di queste pa- 
gine, sono necessarie le seguenti modi- 
fiche: 

- cancellare le righe 240 / 245 / 250 / 
255 / 260 / 385 / 386 / 387 

- aggiungere le righe: 

220 OPEN’RAM: fattori "FOR OUTPUT AS #1 
230 FOR ciclo = 1 TO 2: CLS: a$ = 
i ■ 0: co » 1 

280 IF cd <4 OR cd > 32767 OR cd > 
FRE(l) TH£N PRINT "ERRORE": 

GOTO 270 

370 i - i ♦ 1: IF i = Cd THEN 
PRINT# 1 , STR$ <dx); a$; 

CHR$ (10); LEN (a$) : GOTO 460 
520 IF Ciclo = 2 THEN 540 ELSE PRINT 
"premi un tasto" 

530 IF ciclo » 1 AND INKEY$ - "" 

THEN 530 

540 NEXT ciclo: CLOSE #1 

A questo punto salvate il programma 
così ottenuto su dischetto. 

Come si è detto, in riga 220 la device 
(RAM:) e il file ("fattori") sono modificabili 
a piacimento (in tal caso non dimenticate 
di modificare anche il programma di mol- 
tiplicazione nel comando open di apertu- 
ra del file, verso l’inizio dello stesso). 

Con la riga 280 ci si libera dagli angusti 
limiti delle 254 cifre decimali degli otto bit, 
sfruttando tutta la potenza dei sedici bit 
di Amiga, che può gestire stringhe di 
32767 caratteri; con fre( 1 ) si controlla 
che la lunghezza richiesta della stringa- 
quoziente non ecceda il limite della me- 
moria disponibile; l’assegnazione Co = 1 
è indispensabile per garantire la compa- 
tibilità. 

La riga 370 adempie al compito di ri- 
versare nel file le due stringhe-quozienti, 
che nella successiva elaborazione sa- 
ranno trattate come stringhe-fattori, se- 
condo il formato: 

Quoziente senza virgola (If) 

Numero di cifre decimali (If) 

I due campi sono separati da un Line 
feed = chr$(10). 

In pratica, il numero 157,09 sarebbe 
memorizzato così: 

15709 (LF) 

2(LF) 


Inutile dire che non è assolutamente 
necessario utilizzare il programma pub- 
blicato sul n. 82 prima di attivare quello 
che compare in queste pagine: è infatti 
sufficiente avere a disposizione, su di- 
schetto. un file che contenga (secondo il 
"codice" appena indicato) i valori richie- 
sti. ' 

Esaminiamo ora il primo sottoprogram- 
ma, quello relativo alla moltiplicazione. 
Esso accetta in input due fattori (memo- 
rizzati in altrettante variabili stringa) e 
restituisce, in output, l’array prod$(), che 
contiene tutti i risultati parziali: all’uscita 
dal sottoprogramma siamo giunti alla fa- 
se cinque dell’algoritmo. 

Da notare l’uso della funzione String$, 
utile per moltiplicare il risultato parziale 
per l’appropriata potenza di 10 (vedi la 
fase tre), che rende il tutto più agile; resta 
da dire che il primo ciclo for scandisce 
ogni cifra del secondo fattore, la quale 
moltiplica ogni cifra del primo grazie al 
secondo ciclo for ... next: le variabili a e 
b contengono, rispettivamente, la cifra 
corrente del primo e del secondo fattore, 
mentre la variabile carry (in inglese: ri- 
porto) contiene proprio il riporto derivante 
da ciascuna moltiplicazione parziale. 

Il sottoprogramma dell’addizione, inve- 
ce, accetta in input due addendi, memo- 
rizzati in variabili stringa, e fornisce, stra- 
no a dirsi, la loro somma. La prima parte 
aggiunge in testa alla stringa più corta (- 
all'addendo col minor numero di cifre) 
degli zero non significativi, giusto per pa- 
reggiare i conti, ed evitare problemi con 
mids; per il resto la comprensione è im- 
mediata, magari tenendo sott’occhio l’al- 
goritmo, la cui struttura il sottoprogram- 
ma rispecchia fedelmente. 

A questo punto, per completare l’ese- 
cuzione della moltiplicazione, è necessa- 
rio richiamare la subroutine "somma" per 
tutti i risultati parziali forniti in output dalla 
subroutine "prodotto". Lo schema della 
procedura Basic da seguire per una ge- 
nerica moltiplicazione è dunque: 

CALL prodotto (...) 

FOR x=l to n 
CALL somma (...) 

NEXT x 

L’indice massimo di DIMensionamen- 
to dell’array prod$ è pari al numero delle 
cifre del secondo fattore. 

Condizione vitale per il buon funziona- 
mento del tutto è che entrambi i sottopro- 
grammi ricevano in input stringhe conte- 
nenti solo cifre e non punti decimali, vir- 
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I tempi di elaborazione 


P er la costituzione dell’algoritmo stesso, il tempo impiega- 
to dal nostro Amiga per portare a termine una moltipli- 
cazione è proporzionale al prodotto delle lunghezze, in cifre, 
dei due fattori... 

t = k x 11 x 12 

...ove t è il tempo necessario ad eseguire l’operazione, Il 
è il numero di cifre del primo fattore, 12 è il numero di cifre del 
secondo fattore e k è una costante che permette di determi- 
nare il tempo di elaborazione espresso in secondi, e che per 
l’AmlgaBasic assume il valore di 0.056: ciò significa che 
moltiplicando due numeri di 100 cifre ciascuno sono neces- 
sari... 

t = 0,056x100x100 = 

= 0,056 x 10000 = 560 secondi 

...che equivalgono a circa 9 minuti e 20 secondi. 

In particolare, se 11 = 12, vale a dire se i fattori hanno lo 
stesso numero di cifre, si ha che t = k x I 2 , cioè che il tempo 
aumenta con andamento parabolico, dunque impercettibil- 
mente per bassi valori di I ma molto velocemente per valori 
di I medio- alti. 

Il tempo richiesto dall’operazione di elevamento a potenza, 
invece, è dato dalla formula... 

t = k x (I x b) 2 

...ove t è il tempo necessario al calcolo della potenza a b ; 
b è appunto l’esponente ed I è il numero di cifre costituenti 
la base a, ed infine k è ancora la costante temporale, pari a 


0,018. A questo punto siamo in grado di risolvere anche 
problemi pratici: ad esempio, se vogliamo sapere quanti 
bytes di memoria può indirizzare un microprocessore il cui 
bus indirizzi è a 64 bit, è sufficiente(l) calcolare 2 64 , ma 
poiché tale idea non sfiora nemmeno la mente dei comuni 
esseri raziocinanti, ecco che con questo programma verran- 
no spalancate le meravigliose porte della microelettronica! 
Prima però di dare il via ai calcoli sarebbe bene conoscere a 
priori quanto tempo sarà impiegato, giusto per sapere se è il 
caso di spenderlo in modi migliori: ed ecco che salta fuori la 
necessità della formula del tempo. In questo caso... 
t = 0,018 x (1 x 64) 2 = 

0,018 x 4096 = 73,72 secondi, 

...equivalenti a circa 1 minuto e 13 secondi. 

Non crucciatevi, dicevamo, se il massimo esponente per- 
messo è 32767, perché per esponenti maggiori rischiereste 
di non campare abbastanza a lungo per essere presenti alla 
visualizzazione del risultato (lasciarla in eredità ai posteri?): 
infatti già per calcolare il valore di 6 32767 , benché la base sia 
costituita da una sola cifra, dovrete attendere la bellezza di... 
t = 0,018x(1x32767) 2 = 

19326173 secondi 

...equivalenti a 223 giorni, 16 ore, 22 minuti e 53 secondi, 
sufficienti a scoraggiare anche il matematico più puramente 
teorico, senza contare che, tradotti in soldoni, significano un 
bel gruzzolo all’Enel! 


gole o frattaglie varie: nel programma di 
queste pagine si assicura ciò mediante 
la particolare forma di memorizzazione 
nel file (ricordate?), ma nei vostri pro- 
grammi dovrete vedervela da soli! Ricor- 
diamo, a tal proposito, che per essere 
trasportata nei vostri lavori, la subroutine 
non necessita della minima modifica da 
parte vostra. 

Poiché la moltiplicazione viene real- 
mente effettuata fra numeri interi, il pro- 
blema di dove vada a finire la virgola si 
risolve tenendo presente che 7 / numero 
di cifre decimali del prodotto è pari alla 
somma delle cifre decimali dei due fatto - 
ri 7 ora, queste ultime sono state memo- 
rizzate apposta nel file, per cui mediante 
la banale somma v = a + b si recupera la 
posizione occupata in partenza dalla vir- 
gola, grazie alla funzione stringa definita 
nella prima riga del programma. 

Infine, finalmente, il prodotto verrà vi- 
sualizzato. 

Per quanto riguarda il calcolo delle po- 
tenze, è sufficiente inserire in un ciclo For 
... Next la procedura vista prima relativa 
ad una moltiplicazione. Dal punto di vista 


tecnico c’è da dire che i dati in input 
provengono soltanto da tastiera; inoltre, 
mentre la base, essendo memorizzata 
per mezzo di input in una variabile strin- 
ga, può essere costituita da un qualsivo- 
glia numero di cifre, l’esponente deve 
essere un numero intero compreso tra 0 
e 32767, poiché viene memorizzato in 
una variabile dichiarata di tipo "intero bre- 
ve": cambiando la dichiarazione potrete 
aumentare il valore massimo accettato 
per l’esponente, ma anche i tempi di ela- 
borazione! 

Il programma non accetta esponenti 
decimali e neppure negativi, al fine di non 
complicare esageratamente una routine 
di elevamento a potenza, che trova la 
sua unica ragione di esistere solo nella 
sua brevità e semplicità. 


Istruzioni 

D opo tutta questa marea di teoria, è 
arrivato il momento di vedere come 
metterla in pratica. Per quanto concerne 
la divisione, non essendo state apportate 


modifiche sostanziali, si rimanda all’arti- 
colo sul numero 82. 

Doveroso, invece, illustrare l’uso del 
programma, peraltro molto semplice. 
Una volta digitato il listato, controllato che 
non vi siano errori di sorta, salvato su un 
dischetto, e lanciato con run, comparirà 
una domanda, cui dovrete rispondere 
premendo M per eseguire una moltiplica- 
zione, oppure P per un elevamento a 
potenza. 

Scegliendo la moltiplicazione (opzione 
M), non dovrete far altro che aspettare, 
poiché il computer leggerà il file dei due 
fattori, li stamperà sullo schermo, e, dopo 
un certo lasso di tempo (sapete già 
"quanto"), in cui il vostro Amiga non darà 
il minimo segno della turbinosa attività 
che lo anima, comparirà il prodotto cer- 
cato. 

Se, invece, scegliete l'operazione di 
elevamento a potenza (opzione P), com- 
parirà immediatamente la richiesta della 
base, che dovrà consistere in un numero 
positivo (non specificate il segno + per 
carità...) senza limitazioni sul numero di 
cifre, e, subito dopo, quella dell’esponen- 
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DEF FNvirgS (x$, x) = LEFT$ (x$, LEN (x$) -x) + +RIGHTS (x$,x) 

DEF FNt runc$ (x$) = RIGHTS (x$, LEN (x$) -1) 

I CLS: INPUT “Moltiplicazione o Potenza"; aS 
IF UCASES (a$ ) - "P" GOTO potenza 

IF UCASES (a$) <> "M" GOTO 1 
moltiplicazione : 

OPEN "rara: fattori" FOR INPUT AS *1 
INPUT# 1 , a$, a, b$, b: v - a + b: CLOSE #1 
PRINT "Primo fattore FNvirgS (aS, a) 

PRINT "Secondo fattore:" FNvirgS (b$, b) 

DIM cS (LEN <bS) ) : x$ - "" 

CALL prodotto (a$, b$, c$ () ) 

FOR i = 1 TO UBOUND (cS) 

CALL somma (c$ (i), x$, r$) 
x$ ■ r$ : NEXT i 
r$ = FNvirgS (r$, v) 

WHILE LEFTS (r$, 1) « "0": r$ - FNtruncS (r$) : WEND 
PRINT "Risultato = "r$: END 
potenza : 

INPUT "Base"; aS: 1 = LEN (aS) : v - INSTR (a$,".") 

IF v> 0 THEN a$ - LEFTS (aS, v-1) + MIDS (a$, v + 1) 

INPUT "Esponente"; b%: DIM s$ (LEN (aS) ): cS = a$ 

IF v> 0 THEN v = (1-v) *b% 

FOR i = 1 TO b%-l : xS - "" 

CALL prodotto (c$, aS, sS () ) 

FOR s = 1 TO UBOUND (sS) 

CALL somma (s$ (s), x$, c$) 
xS = c$ : NEXT s 
NEXT i 

WHILE ASC (c$) » 48: c$ « FNtruncS (cS) : WEND 
IF v> 0 THEN c$ - FNvirgS (cS, v) 

PRINT "risultato » "; c$: END 

SUB somma (addlS, add2$, tot$) STATIC 

totS = "": carry * 0 

IF LEN (addlS) > LEN (add2$) THEN 

WHILE LEN (addlS) > LEN (add2S) : add2$ = "0" add2S: WEND 
ELSE 

WHILE LEN (add2S) > I.EN (addlS): addlS « "0" + addlS: WEND 
END IF 

FOR cifra = LEN (addlS) TO 1 STEP -1 
a = VAL (MIDS (addlS, cifra, 1) ) 
b = VAL (MIDS (add2S, cifra, 1) ) 
c = a + b carry: carry - INT (c/10) 
totS = RIGHTS (STRS (c) , 1) + totS 
NEXT cifra 
END SUB 

SUB prodotto (fattlS, fatt2$, prodS () ) STATIC 

II - LEN (fattlS): 12 = LEN (fatt2$) 

FOR i - 12 TO 1 STEP -1: carry = 0 

prodS (i) = STRINGS (12-i,"0 M ): b = VAL (MIDS (fatt2$, i, 1) ) 
FOR k * 11 TO 1 STEP -1 

a = VAL (MIDS (fattlS, k, 1)): p = a*b + carry: carry= INT (p/10) 
prodS (i) = RIGHTS (STRS (p) , 1) + prodS (i) 

NEXT k 

prodS (i) = RIGHTS (STRS (carry), 1) ♦ prodS (i) 

NEXT i 
END SUB 


Il listato in Amiga Basic 

La brevità del programma invita a sperimentare sofisticazioni di ogni genere 


te, che. lo ricordiamo, dovrà essere un 
numero intero compreso tra 2 e 32767. 

Anche in questo caso le vostre fatiche 
terminano qui, in quanto dovrete solo 
aspettare (od occupare meglio il vostro 
tempo) che l'Amiga vi sforni il risultato. 

Ancóra, la formula del tempo sarà elo- 
giata per non avervi fatto passare notti 
insonni prima che comparisse il risultato 
tanto agognato. 

Concludendo 

U n caloroso consiglio: se potete, com- 
pilate il programma, in modo da ab- 
bassare la costante K e rendere tutte le 
operazioni più spedite: la presenza del 
coprocessore matematico 68881 non 
dovrebbe influenzare il ritmo delle opera- 
zioni (per il motivo che non vengono ese- 
guiti, internamente, calcoli in virgola mo- 
bile) lasciando sostanzialmente inaltera- 
to il valore di k. 

A proposito del programma, in esso 
manca quasi ogni tipo di controllo: sareb- 
be opportuno che il lettore inserisse dei 
“filtri” software che impediscano l’input di 
dati non ammessi, nonché un segmento 
di programma che renda inoffensivi 
eventuali errori che potrebbero verificarsi 
in fase di esecuzione del programma: a 
parte i banali Syntax error, dovrebbero 
essere "parati" in particolare il File not 
found (il file "fattori” deve effettivamente 
esistere nella device selezionata) e l’Out 
of memory (utilizzare l’istruzione Clear 
per allocare una maggior quantità di me- 
moria). Negli Amiga 51 2K sarà opportu- 
no non utilizzare più di 200 K di RAM. per 
mezzo dell’istruzione clear, 25000: 
clear, 200000; se possedete un'e- 
spansione di memoria potrete sbizzarrir- 
vi liberamente. 

Altra importante e sostanziale modifica 
sarebbe l’implementazione di algoritmi 
più efficienti e quindi più veloci di quelli 
proposti. Datevi quindi da fare e utilizzate 
questo programma anche come palestra 
software, nonché come ennesima sfida, 
che qui sintetizziamo: 

Scrivere un programma che riduca 
drasticamente il tempo di elaborazio- 
ne richiesto dal listato pubblicato in 
queste pagine. 

Credete che sia troppo difficile? Bè, 
non penserete che la Systems Editoriale 
regali facilmente mille lire al primo aspi- 
rante-collaboratore che capita in Reda- 
zione... 
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Come 

personalizzare 
le funzioni svolte 
dai tasti 
del nostro PC 


Q ualsiasi personal computer Ms - 
Dos, non appena viene acceso, 
esegue una procedura nota con il nome 
di autodiagnostica, grazie alla quale, in 
pratica, il computer prende "visione" del- 
l’hardware installato e controlla se tutto 
funziona bene. 

In caso affermativo viene eseguito il 
Bootstrap, termine che letteralmente 
vuol dire "con i lacci degli stivali ", frase 
molto strana che, tuttavia, non è fuori 
luogo come potreste pensare: un uomo 
che si alza aggrappandosi ai lacci dei 
suoi stivali (praticamente impossibile) 
non fa ricorso ad appoggi esterni; allo 
stesso modo un personal computer, per 
iniziare a funzionare, esegue i program- 
mi contenuti nelle sue Rom, senza far 
ricorso a mezzi esterni. 


Il computer, quindi, cerca sul drive a: 
un programma contenuto nel settore di 
Boot (nel seguito denominato loader, 
cioè caricatore); se il floppy non è format- 
tato, oppure il disk-drive non c’è o risulta 
privo di dischetto, il computer carica dal- 
l'hard-disk il loader, programma in grado 
di far partire il computer. La procedura, 
tra le altre cose, carica ed attiva due file 
"nascosti", termine con il quale si inten- 
dono dei file non gestibili direttamente dal 
Dos. 

In effetti è possibile "nascondere" qual- 
siasi file, semplicemente modificando i 
suoi attributi con programmi di utilità evo- 
luti (tipo PcTooIs). 

Nei floppy privi di boot, il loader è sem- 
pre presente, ma inefficace, nel senso 
che si limita a visualizzare un messaggio 
in cui si invita l’utente a sostituire il floppy 


con uno che contiene i file vitali del Dos. 
Ricordiamo (vedi numeri precedenti della 
nostra rivista), che è possibile modificare 
il messaggio visualizzato, purché se ne 
rispetti la lunghezza originale. 

Il controllo del computer passa quindi 
ai due file nascosti; subito dopo, se pre- 
sente, viene letto ed interpretato il file 
Config.sys (oggetto di approfondimento 
del presente articolo), e caricato un altro 
file, il famoso Command.com, cioè l’in- 
terprete dei comandi interni del Dos. 

Quest’ultimo programma legge il file 
Autoexec.bat (se esiste), lo interpreta e 
lo "lancia"; altrimenti chiede la data, l’ora 
e visualizza la versione del Dos. 

Ricapitolando quanto detto, per far fun- 
zionare un computer è necessario un 
supporto magnetico (sia esso floppy o 
hard) su cui è registrato il loader per 
caricare i file nascosti ed il file com- 
mand.com. Il modo più semplice per 
creare un disco con queste caratteristi- 
che, come è noto, è formattarlo con l’op- 
zione /s. 

Config.sys 

I l file Config.sys è un file ascii (leggi 
aski), contenente le informazioni ne- 
cessarie per il funzionamento ottimale 
del computer. 

Tale file viene letto solo in fase di 
bootstrap; nel caso in cui si intenda ap- 
portare modifiche, per fare in modo che 
il computer le riconosca saremo costretti 
a resettare il sistema. Il file config.sys 
contiene diverse informazioni, tra le più 
importanti: numero massimo di drive lo- 
gici, quantità di memoria riservata ai buf- 
fer dei dischi, nazionalità della tastiera, 
numero di file apribili, device di driver ed 
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Escape e dintorni 


Funzioni grafiche 

Il carattere X viene considerato come 
un parametro. Ad esempio... 

esc [xm 

...oppure... 
esc(x; xm 

...imposta gli attributi dello schermo. 

Il valore di x ha il seguente significato: 

0 tutti gli attributi vengono rimossi e il 
video torna alle condizioni normali 

1 alta intensità 
5 lampeggio 

7 attiva reverse 

8 spegne il display 

30 primo piano nero 

31 primo piano rosso 

32 primo piano verde 

33 primo piano giallo 

34 primo piano blu, sottolineatura su 
video monocromatico 

35 primo piano magenta 

36 primo piano ciano 

37 primo piano bianco 

40 fondo in nero 

41 fondo rosso 

42 fondo verde 

43 fondo giallo 

44 fondo blu 

45 fondo magenta 

46 fondo ciano 

47 fondo bianco 

Per esempio, volendo il colore di pri- 
mo piano bianco su fondo nero biso- 
gnerà impartire... 

esc ( 37; 40m 

Per riportare le condizioni iniziali: 

esc COm 

Il comando... 

esc (»xh 

...imposta la larghezza dello scher- 
mo, o la modalità grafica, se il valore di 
x varia tra 0 e 6: 

0 =40 colonne per 25 linee, in bianco 
e nero 

1 =40 colonne per 25 linee, a colori 

2 =80 colonne per 25 linee, in bianco 
e nero 

3 =80 colonne per 25 linee, a colori 


4 =320 * 200, a colori 

5 =320 # 200, in bianco e nero 

6 =640 *200, in bianco e nero 

Il comando... 

esc [ =xl 

...ha la stessa funzione della sequen- 
za precedente, con gli stessi parametri, 
eccetto per 

7 giunti alla fine del rigo i caratteri 
successivi non sono visualizzati. 


Funzioni di cancellazione 

Con il comando... 

esc [2J 

...il video viene cancellato ed il curso- 
re spostato il alto a sinistra. 

Con... 
esc [K 

...viene cancellata la linea corrente a 
partire dalla posizione del cursore (in- 
clusa). 


Spostamento del cursore 

Considerando x e y le coordinate del 
cursore, con... 

esc [y;xH 
...oppure... 
esc [y; xf 

...il cursore viene spostato alla posi- 
zione indicata; se i parametri non ven- 
gono specificati, il cursore viene spo- 
stato in alto a sinistra. 

I comandi... 

esc (yA 
esc (yB 

.. .spostano il cursore verso l'alto (ver- 
so il basso) del numero di linee specifi- 
cato dal parametro; se non è specificato 
viene assunto il valore unitario. 

I comandi... 

esc (xC 
esc (xD 

...spostano il cursore verso destra (si- 
nistra) del numero di colonne specifica- 


to dal parametro; se non è specificato 
nessun parametro viene assunto uno. 

Il comando... 

esc [ 6n 

...memorizza nel buffer di tastiera le 
coordinate del cursore, ma genera un 
errore perché, per il computer, è come 
se le coordinate fossero digitate; non 
può essere quindi usato direttamente 
(veniva usato nei terminali per far sape- 
re al computer principale la posizione 
del cursore). 

Il comando... 

esc ( y ; xR 

...sposta il cursore alle coordinate in- 
dicate quando viene ricevuta la sequen- 
za precedente, mentre con... 

esc (s 

...viene salvata la posizione corrente 
del cursore e con... 

esc (u 

...ripristinata la posizione del cursore. 


Riasseqnazione dei tasti 

Un tasto viene individuato mediante 
un codice che lo contraddistingue dagli 
altri. Si tenga presente che molti tasti 
(tasti di funzione, tasti del cursore, etc) 
sono formati da una sequenza di due 
caratteri; in questo caso il primo vale 
sempre 0. Negli esempi che seguono, 
con ti (eventualmente 0, come già det- 
to) e t2 abbiamo indicato i codici ascii 
del tasto da riassegnare; con strlng, la 
stringa da assegnare al tasto premuto, 
e con asc il codice ascii del carattere da 
assegnare al tasto. Con tali premesse, 
alcune sequenze valide sono: 

asc(tl;t2; "atring" ; use; "atring";«acp 
esc [tl ; "atring" ; 13p 

Alcuni esempi chiariranno meglio le 
idee: se al tasto FIO vogliamo far corri- 
spondere il comando Dir + Return, la 
sequenza sarà... 
esc (0; 68; "dir"; 13p 
Se al tasto F9 deve corrispondere Cls 
+ Return + Date + Return, digiteremo: 
esc (0; 67; "cls"; 13; "date" ; 13p 
...e così via. 
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altri file eventualmente richiesti da pac- 
chetti di vario genere. 

Device di driver 

L o scopo principale dei device di dri- 
ver (che chiameremo semplicemen- 
te "driver"e significa letteralmente dispo- 
sitivi di guida) è quello di gestire periferi- 
che opzionali, apparecchi che. di solito, 
non sono così diffusi da essere forniti di 
serie con il computer. 

I driver sono programmi molto partico- 
lari, scritti in linguaggio macchina, dotati 
di una struttura diversa dai normali file 
eseguibili; possono essere caricati solo 
automaticamente e solo in fase di boot- 
strap, momento in cui. come abbiamo già 
detto, il computer legge i vari file di con- 
figurazione. tra cui config.sys. 

Tali file, quindi, non devono essere 
lanciati dall’utente, ma risultano sempre 
residenti ed attivi. I driver, di regola, sono 
registrati in file con estensione .sys e 
vengono caricati inserendo, nel file con- 
fig.sys, righe del tipo... 
devi ce - nomodriver 
A partire dalla versione 3.30 Ms - Dos 
sono stati aggiunti due file, key- 
board.syse country.sys. che presenta- 
no una gestione diversa, per cui non 
possono essere caricati come tutti gli altri 
driver. 

Ansi.sys 

L ’ansi (American National Standard 
Institute) è un istituto americano che 


si occupa dei problemi relativi alla stand- 
ardizzazione di prodotti e procedure, tra 
cui anche quelle relative all’informatica. 

Prima dell’avvento dei personal com- 
puter, i grandi computer (mainframe) era- 
no collegati a più terminali tramite linee; 
il terminale riceveva i vari messaggi, li 
stampava sullo schermo e inviava al 
computer ciò che veniva digitato su ta- 
stiera. 

Tale sistema, però, si rilevò limitato 
perché non si potevano effettuare opera- 
zioni particolari, tra cui la cancellazione 
dello schermo, l'evidenziare parti di testo 
e così via. 

Per questo motivo I'ansi standardizzò 
sequenze particolari di caratteri in modo 
che il terminale le interpretasse non co- 
me messaggi alfanumerici da stampare, 
ma come comandi inviati al terminale 
stesso per effettuare le operazioni sud- 
dette. 

Quando, in seguito, comparvero i primi 
personal computer, si pensò di utilizzarli 
anche come emulatori di terminali, e si 
provvide, pertanto, a servirsi del driver 
Ansi.sys per far in modo che il personal 
computer potesse gestire correttamente 
le sequenze Ansi già diffuse come stand- 
ard. 

Una sequenza Ansi è formata da tre 
parti, di cui la prima è "fissa" (formata dal 
carattere Esc e dalla parentesi quadra 
chiusa); tale coppia di caratteri, intesta- 
zione di ogni sequenza Ansi, viene chia- 
mata CSI (control sequenze indicator). 
Segue una serie di parametri separati dal 
carattere di punto e virgola (;) e, per 


ultimo, un carattere indicante la funzione 
svolta dalla sequenza stessa. 

Particolare importanza ha la lettera p 
che consente di ridefinire i tasti. Le se- 
quenze di Ansi, poiché iniziano sempre 
con il carattere Esc, vengono chiamate 
anche sequenze di escape. 

Ricordate che una sequenza di Ansi, 
per essere riconosciuta come tale dal 
computer, deve sempre essere "lancia- 
ta" direttamente dal Dos, o con program- 
mi che usano le routine di output del Dos, 
senza alterare l’attributo maiuscolo/mini- 
scolo del carattere di coda e senza spazi 
intermedi. 

Il miglior sistema per stampare le se- 
quenze di Ansi consiste nel registrarle su 
un file sequenziale per poi attivarle con il 
comando type come se, cioè, lo si voles- 
se visualizzare su schermo. 

In alternativa è possibile modificare il 
Prompt del Dos per ottenere effetti parti- 
colari ogni volta che il Dos stampa il 
Prompt. 

Il comando Prompt 

C on Prompt si intende il messaggio 
che il computer stampa per far sape- 
re all’operatore di essere in attesa di 
nuovi ordini. 

Per default il Prompt è formato dalla 
lettera indicante il drive corrente e dal 
carattere di maggiore (>); il Dos, comun- 
que. mette a disposizione, appunto, il 
comando Prompt che consente di modi- 
ficare il Prompt originale del Dos fornen- 
do altre informazioni. 

Il suo utilizzo è molto semplice; basta, 
da Dos, impartire il comando Prompt se- 
guito dai caratteri e metacaratteri desi- 
derati (cioè caratteri dotati di significato 
particolare per il computer), in accordo 
con la tabella dei metacaratteri qui ripor- 
tata. che devono essere preceduti dal 
carattere dollaro ($). 

$ carattere "$" 
t ora corrente 
d data corrente 
p drive e subdirectory correnti 
v numero di versione 
n drive corrente 
g carattere ">" 

I carattere "<" 
b carattere T 

s spazio (ammesso solo all'inizio) 
h backspace 
e escape 


10 OPF.N "i", 41, "menu .are” 

20 LINK INPUT #*., S$ : OPEN "e", *2, S$ + M \nenu.ans" 

3C OPEN "o", *3, S$ + "\menu . scr" : PRINT p3, CKR$<27); "(2J" 
40 PRINT #2, CHR$<27); "(0;94;"; CHR$<34); "type S$; 
"\menu.scr"; CHRS(34); ";i3p" 

SO I * 1 

6C IF 1 > 1C THEN END 

70 LINE INPUT *1, AS : PRINT #3, USINO \ 

\"; 1 ; A$ 

80 PRINT 42, CliRS (27 ) ; - (0;"; : PRINT *2, USING "f*"; I * 83; 
90 LINK INPUT *1, C$ : Ir C$ = THEN 110 

100 PRINT *2, CIIR$(34); C$; CHRS(34); ";13 M ; : GOTO 90 

110 PRINT *2, "p H : .F EOF ( 1 ) THEN END 
120 I - I - 1 : GOTO -60 


Il semplice programma in Gw • Basic 


Computer Club - 29 



Afs - Dos 


q carattere "=" 

Un esempio chiarirà meglio le idee. 
Provate a digitare (su di un unico rigo e 
non su due righe, come qui di seguito 
riportato per esigenze di impaginazione) 
e premete il tasto Return... 

Prompt $e ( s$e [A$e [K$e ( 1 ; 
67H$d$e [2; 67H$t $e [u$p$g 

Esaminiamo quale sarà il Prompt del 
Dos dopo aver impartito il comando. 

Vengono stampate delle sequenze di 
Ansi che svolgono le seguenti funzioni: 

* memorizzano la posizione del curso- 
re; 

* il cursore viene fatto salire di un rigo; 

* viene cancellato il rigo corrente; 

* il cursore viene portato alla riga 1 
colonna 67 e con un... 

* ...metacarattere (d) viene stampata la 
data; 

* il cursore viene spostato alla riga 2 
colonna 67 e viene stampata l’ora; 

* quindi viene ripristinata la posizione 
iniziale del cursore e con i metacaratteri 
(pg) vengono stampati drive e subdirec- 
tory correnti e il carattere maggiore. 

Il programma dimostrativo 

I l programma riportato come esempio 
(ansi.bas) consente di attivare altri pro- 
grammi residenti su disco rigido median- 
te la semplice pressione dei tasti funzio- 
ne e del tasto Shift (invece di esser co- 


stretti a digitare intere sequenze di tasti 
per "entrare" in subdirectory, attivare il 
programma che interessa, eccetera). 

Il programma Basic contiene tutte le 
istruzioni per generare i vari file di "ap- 
poggio" di cui il computer si servirà, una 
volta resettato e lanciato nuovamente. 

La procedura, infatti, richiede, per fun- 
zionare correttamente, che il driver An- 
si.sys sia residente in memoria e la pre- 
senza di un file, scritto secondo uno 
standard definito, che tra breve descrive- 
remo riga per riga. 

Il file Ascii di cui parliamo (menu.arc) 
deve essere formato in modo tale da 
rispondere adeguatamente alle esigenze 
del programma Basic pubblicato. 

Ciò significa che dovrete, a parte, scri- 
vere un banale file Ascii prima di lanciare 
il programma Basic (che, lo ripetiamo, 
prowederà a generare i file idonei a ren- 
dere, in seguito, del tutto automatica l’in- 
tera procedura). 

La prima linea del file Menu.arc, di cui 
stiamo parlando, deve rappresentare il 
nome della subdirectory (che, nel caso 
specifico dell'esempio che seguirà, ab- 
biamo chiamato semplicemente ansi) in 
cui saranno scritti (automaticamente dal 
programma Basic) altri due file; il file 
Menu.arc deve quindi contenere altre ri- 
ghe che rappresentano (ad esempio) il 
nome del programma da lanciare (Wor- 
dstar 4.00); la sequenza di tutti i coman- 
di che normalmente verrebbero digitati 
se si operasse da tastiera per lanciare il 
programma (cd \ws4, ws, cd \); ed infine 


un asterisco (*) che ha il compito di indi- 
care (al programma Basic) altre righe che 
consentiranno al computer di attivare un 
altro programma (nel nostro caso Quick- 
Basic). E così via fino ad un massimo di 
10 programmi (valore che, volendo, può 
essere modificato dal lettore). 

Riepilogando: se sull’hard-disk sono 
presenti Wordstar 4.00 e QuickBasic 
4.50, e si vogliono creare i file nella sub- 
directory di nome ansi, il file menu.arc 
sarà così composto (e digitato utilizzando 
un comune editor Ascii): 

c : \ansi 
Wordstar 4.00 
cd \ws4 
ws 

cd \ 

★ 

QuickBasic 4.50 
cd \qb45 
qb 

cd \ 

* 

I file creati nella subdirectory ansi 
avranno (in seguito) nome Menu.scr e 
Menu.ans. Il primo conterrà un semplice 
menu (magari personalizzabile dopo 
aver bene compreso il funzionamento 
della procedura); il secondo, invece, le 
sequenze di Ansi per le riassegnazioni 
dei tasti. In particolare, la prima riga fa in 
modo che, premendo i tasti Ctrl + FI, 
viene stampato sullo schermo il file Me- 
nu.scr. I due file, lo ripetiamo, vengono 
generati automaticamente dal program- 
ma Basic di queste pagine. 

Le sequenze di ansi, a questo punto 
delle operazioni, non sono ancora state 
attivate; con il comando type, quindi, ver- 
rà visualizzato il file menu.ans. Premen- 
do i tasti Ctrl + FI verrà infatti visualizza- 
to il menu... 

1 Wordstar 4.00 

2 QuickBasic 4.50 

...mentre con i tasti Shift + FI verrà 
lanciato Wordstar e con i tasti Shift + F2, 
invece, il QuickBasic. 

Come funziona 

I l programma legge il file menu.arc e, in 
base a questo, crea altri due file. 

Per prima cosa apre in input il file me- 
nu.arc, individua la subdirectory in cui 
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trascrivere i file menu.scr e menu.ans e 
li crea. 

Nel file menu.scr viene trascritta la 
sequenza di ansi che cancella lo scher- 
mo; mentre nel file menu.ans viene tra- 
scritta la sequenza di ansi che (al mo- 
mento in cui verranno premuti i tasti Ctrl 
e FI ) visualizzerà il file menu.scr median- 
te l’attivazione automatica del comando 
type. 

Quindi viene posta a 1 la variabile i. 
incaricata di conteggiare i programmi in- 
seriti nel menu. In seguito il programma 
controlla se la variabile i è maggiore di 1 0 
e, in tal caso, il programma termina, altri- 
menti viene letta la riga successiva del 
file menu. are (cioè il nome del program- 
ma da inserire nel menu) che viene subi- 
to trascritto nel file menu.scr. 

In seguito viene riversata, nel file me- 
nu.ans, la sequenza di ansi che ridefini- 
sce il tasto da far corrispondere al pro- 
gramma da lanciare; poi vengono lette 
altre righe dal file menu.arc (fino all’aste- 
risco) ove sono riportati tutti i comandi 
necessari per lanciare il programma de- 
siderato. 

Quando viene incontrato l'asterisco, 
viene riportato (sempre nel file me- 
nu.ans) il carattere p: la sequenza di 
ansi, per la definizione del tasto, è final- 
mente completa; rimane solo da control- 
lare se il file menu.arc è terminato; in 
caso contrario la variabile i viene incre- 
mentata e l’elaborazione ripete il ciclo 
finché il valore di i raggiunge 10. 

Le variabili usate nel listato sono: 


S$ (subdirectory dove creare i file me- 
nu.scr e menu.ans); A$ (nome del pro- 
gramma da lanciare o messaggio da far 
apparire nel menu); C$ (comandi idonei 
per eseguire i programmi inseriti nel me- 
nu). 

□ □ 

Commenti al programma 

10 apre in input il file menu.arc; 

20 legge la subdirectory dove creare i 
file menu.arc e menu.ans e crea il file 
menu.ans; 

30 crea il file menu.scr e vi trascrive la 
sequenza di ansi per cancellare lo scher- 
mo. 

40 scrive nel file menu.ans la sequen- 
za di ansi per stampare sul video con il 
comando type il file menu.scr quando 
verranno premuti i tasti Ctrl e FI . 

50 setta a 1 il contatore per i programmi 
inseriti nel menu. 

60 controlla se nel menu sono stati 
inseriti più di 10 programmi e in questo 
caso termina. 

70 legge il nome del programma da 
inserire nel menu e lo scrive nel file me- 
nu.scr. 

80 scrive nel file menu.ans la sequen- 
za per la ridefinizione del tasto corrispon- 
dente al programma da lanciare. 

90 legge un comando per lanciare il 
programma da menu, se è un asterisco 
va alla linea 110. 


100 scrive il comando letto nella linea 
precedente nel file menu.ans e torna alla 
linea 90. 

110 scrive nel file menu.ans la lettera 
p, chiudendo la sequenza di ansi per la 
definizione del tasto, quindi controlla se 
il file menu.arc è finito e in questo caso il 
programma termina. 

120 incrementa il contatore dei pro- 
grammi inseriti nel menu e va alla linea 
60. 


Consigli e avvertenze 

L a memoria riservata alla ridefinizione 
dei tasti è limitata; è meglio quindi 
ridurre allo stretto indispensabile i co- 
mandi necessari per lanciare un pro- 
gramma (cambio directory, attivazione 
programma, ritorno alla directory princi- 
pale e così via). 

Se si vuole ridefinire un tasto già defi- 
nito precedentemente con una nuova se- 
quenza di ansi, è fortemente consigliato 
resettare prima il computer per evitare 
indesiderate sovrapposizioni. 

Può essere interessante esaminare, 
con il comando type, i file menu.ans e 
menu.arc prima di installare ansi.sys. 
Dato che ci siete, esaminate il contenuto 
di Config.sys; è probabile che, in questo 
file, non sia presente il comando device 
» ansi . sys. 

La procedura più semplice per installa- 
re in memoria il drive ansi.sys (se, appun- 
to, non risulta installato) è la seguente: 
riportare (mediante una semplice opera- 
zione di copia) nella directory principale 
il file ansi.sys e digitare direttamente, da 
Dos, il comando... 

•cho devic«=ansi . sys > c:\config.sys 

In questo modo la linea device => an- 
si.sys sarà inserita "in coda" al file 
config.sys, e il device di driver verrà ca- 
ricato ogni volta che si accende il compu- 
ter. 

Se si vogliono creare i file menu.ans e 
menu.arc nella directory principale del 
disco rigido, la prima linea del file me- 
nu.arc dovrà essere c: e non c:\ come 
qualcuno potrebbe giustamente(?) pen- 
sare (vedere linee 20 e 30). 

Non dimenticate che l’ultima linea del 
file menu.arc deve essere un asterisco. 
Il programma non crea la subdirectory 
indicata nella prima linea del file me- 
nu.arc, dal momento che si suppone già 
esistente. 
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La sfida lanciata sul n. 82 ha avuto molti consensi; 
due nostri lettori, partendo dalla stessa ipotesi, 
propongono lavori originali in Ce in Basic 


D ue lettori, tra quelli che hanno accet- 
tato la sfida, hanno inviato un lavoro 
decisamente interessante sia perchè l’in- 
tera procedura di divisione può "girare" 
su un qualsiasi computer (Amiga, Ms - 
Dos, C/64) sia perchè la notevole brevità 
dei quattro listati (due in Basic ed altret- 
tanti in C) sarà validissima per chi intende 
affrontare il C un po’ per volta, aiutandosi 
-ed è questo il caso- della corrispondente 
"traduzione” nel più rassicurante inter- 
prete Basic. 

Tale particolare dimostra ancora, se 
mai ce ne fosse stato bisogno, che i 
linguaggi compilatori non sono poi così 
"tremendi" come si immagina. 


Basta solo un po' di pazienza, un po’ 
di impegno e (scusate l’immodestia) l’in- 
dispensabile aiuto dei lettori di Commo- 
dore Computer Club! 

□ □ 

Giuseppe Miano (Catona - RC) 

S e in una divisione le trasformazioni 
del dividendo si ripetono peri- 
odicamente (vedi esempio a parte), si è 
in presenza, appunto, di un periodo. 

Per verificare, in un quoziente, la pre- 
senza di un periodo, è sufficiente ese- 
guire la divisione memorizzando, in 


un’apposita matrice, le trasformazioni del 
dividendo ottenute, e controllare ogni vol- 
ta che quella particolare trasformazione 
non sia già contenuta fra quelle prece- 
denti. 

L’individuazione di due trasformazioni 
uguali indica la presenza di un periodo 
che può essere visualizzato, mediante 
semplici operazioni, così come la sua 
lunghezza, la sua posizione all'Interno 
del quoziente, l'antiperiodo e le cifre 
intere. 

□ □ 

Il programma 

Il programma richiede in sequenza il 
numeratore, il denominatore ed un valore 
chiamato Fattore V. valore contenuto 
nella variabile S. 

Il Fattore V, che deve valere almeno 2, 
sta a significare quante cifre della matrice 
il computer deve verificare. O meglio: dal 
momento che. spesso, il periodo inizia 
non molto dopo la prima cifra decimale, 
il programma fa in modo che (dopo aver 
individuato l’Nesima trasformazione) non 
la confronti con le precedenti n-1, ma 
soltanto con le prime s. 

In tal modo si risparmia moltissimo 
tempo, specialmente quando siamo in 
presenza di un periodo lungo. E’ affidato 
alla discrezione dell'utente stabilire il nu- 
mero s che ritiene più opportuno. 
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Schema tradizionale dì una divisione 

Un ; 'periodo " viene individuato dalla eventuale ripetizione ciclica dei resti 
che si ottengono eseguendo una qualsiasi divisione 
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Se, poi, non si ha proprio idea quale sia 
la prima cifra decimale da cui inizia il 
periodo, basta inserire un valore molto 
alto (1 0000 / 1 5000, comunque superiore 
alle dimensioni della matrice |(». Di solito 
basta assegnare s = 10 per ottenere una 
discreta velocità di elaborazione. 

Dimensionando, ad esempio, la varia- 
bile j() con il valore di 1 0000 (compatibil- 
mente, comunque, con la memoria del 
computer) è possibile stabilire la massi- 
ma lunghezza del periodo. Nel program- 
ma pubblicato il valore viene fissato, ap- 
punto, a 10000 cifre. 

In seguito il programma esegue una 
banale routine per individuare le varie 
cifre decimali, mentre allo stesso tempo 
controlla che vi sia un periodo. Quando 
(e se) lo trova, salta alla linea 210, in cui 
vi sono i vari comandi di stampa. Vengo- 
no, a questo punto, riportati la lunghezza 
del periodo e le cifre da cui inizia; viene 
quindi attivata la stampa delle cifre intere, 
l’antiperiodo e, dopo la pressione di un 
tasto, l’intero periodo con un ritorno del 
carrello ogni 70 cifre. 


Se, ad esempio, eseguiamo 1 20 diviso 
7 (con Fattore V = 10) sullo schermo 
dovrebbe comparire... 

Numeratore 120 
Denominatore 7 
Fattore V 10 
Lunghezza periodo : 6 
Cifra dee. d’inizio : 1 
Cifre intere: 17, 

Antiperiodo : 

Periodo: (Premi un tasto) 

142857 (Premi un tasto) 


□ □ 


Vincenzo Piazza (V. S. Giovanni) 

La sfida consisteva nello scrivere un 
programma che eseguisse la divisione 
tra due numeri dati e che, nel contempo, 
individuasse l’eventuale periodo. 

Il programma apparso sul n. 82 pre- 
sentava, però, un piccolo errore che si 
ripercoteva (soprattutto nel caso di quo- 
zienti con periodo molto lungo) sulla ri- 
cerca della sequenza periodica. 

Il programma "Divisioni" (sia nella ver- 
sione in AmlgaBASIC che in linguaggio 
C), che è stato scritto su un Amiga 1000, 
elimina l’errore ricercando il periodo in 
modo diverso. 

Quando si esegue un rapporto, se i 
resti ottenuti durante la divisione si ripe- 
tono, si è sicuramente in presenza di un 
periodo; grazie a questo particolare, il 
programma presenta una routine che 
provvede a memorizzare in un array (in 
una stringa la versione in AmigaBASIC) 
tutti i resti che, a mano a mano, ottiene e 
li confronta l’uno con l’altro. 

Questo metodo, oltre ad essere più 
sicuro, consente di individuare il periodo 
dopo aver calcolato un numero minore di 
cifre rispetto al programma apparso sulla 
rivista; è infatti sufficiente un numero di 
cifre pari alla lunghezza del periodo stes- 
so più una. 

I due programmi funzionano, quindi, in 
modo diverso dal programma pubblicato 
in precedenza. Essi, infatti, verificano la 
presenza di un periodo mentre eseguono 
la divisione e si fermano automat- 


icamente una volta trovato il periodo 
stesso o raggiunto il numero di cifre de- 
cimali richiesto dall’utente. 

Una curiosità: il tempo impiegato dal 
programma scritto in C, per calcolare un 
certo numero di cifre, aumenta con il 
quadrato del numero di cifre; più precisa- 
mente la relazione che lega tempo (t) e 
cifre (c) è: 

t = (c A 2) / 83333. 

□ □ 

A proposito di "esclusi" 

L a sfida lanciata nel "lontano” n. 82 ha 
suscitato un certo interesse; i due 
lavori che qui pubblichiamo, quindi, rap- 
presentano solo una parte delle fatiche 
dei numerosi lettori che si sono cimentati. 

La selezione, infatti, ha tenuto conto 
della doppia versione inviata (Basic e C) 
e, soprattutto, della notevole brevità dei 
listati stessi; peccato che il Pascal non 
abbia molti sostenitori... 

Ringraziamo, comunque, tutti i lettori 
che, prima di inviare proprie proposte, 
hanno telefonato per chiedere conferma; 
a proposito: alcune selezioni sono dovu- 
te (quasi) esclusivamente alla data tardi- 
va delle telefonate in oggetto; all'inizio di 
Maggio continuavano ad arrivare propo- 
ste in tal senso! Un consiglio è d’obbligo: 
datevi da fare sùbito, appena la rivista 
esce in edicola; chi ha tempo non aspet- 
ti tempo; chi inizia è a metà dell’opra; il 
buongiorno si vede dal mattino (ma que- 
sto che c’entra?...) 
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90 REM Programma di Giuseppe Miano 

100 DEFINT k, s: CLEAR, 5000C& 


110 INPUT " 
120 INPUT " 
130 INPUT " 


Numeratore 
Denominatore " ; 
Fattore V 


140 DIM j (10000) : j (0) = a\b 


150 k 


(a-b* (a\b) ) : 


160 Ir k < s THEN 1 - k-1 ELSE 1 = s-1 


170 FOR t 


TO 1 


180 IF k> 1 AND j (t) 
190 NEXT t. 

200 GOTO 150 

210 PRINT: PRINT "Lungh 

220 PRINT " Cifra 


= a THEN 210 


210 PRINT: PRINT "Lunghezza periodo: ", 
220 PRINT " Cifra dee. d'inizio n.' 

230 PRINT: PRINT "Cifre intere:": PRINT 
240 PRINT: PRINT "Antiperiodo:" 

250 FOR n ■ 1 TO t-1: PRINT USING 
260 PRINT: PRINT: PRINT "Periodo:”; 

270 PRINT TAB (30) "Premi un tasto" 
280 WHILE INKEYS - "" : WEND: 


k-t; 


j (0) 


(r.) \b; : NEXT n 


260 PRINT: PR 
270 PRINT TAB 


PRIN f 


280 WHILE INKEYS - "": WEND: 

290 FOR n = t TO k-1 
300 PRINT USING j (n) \b; 

310 IF (n-t + l) MOD 70-0 THEN PRINT 
320 NEXT n 

330 PRINT: PRINT TAB (30) "Premi un tasto" 
340 WHILE INKEYS = WEND: CLS: GOTO 100 



10 REM DIVISIONE INFINITA - Programma di VINCENZO PIAZZA 

20 WIDTH 77 

30 INPUT "Dividendo ", dO 
40 INPUT "Divisore ", di 

50 INPUT "Numero di cifre decimali volute (0 per infinite) ", max 
60 d = INT (dO/dl) : PRINT: PRINT STR$ (d) ; 

70 r = <d0-d*dl ) -10 
80 IF r = 0 THEN END 

90 IF INKEYS <> "" THEN PRINT END 

100 ri $ = STRS (r/10) 

110 i = INSTR (rS, rlS + " ") 

120 IF i <> 0 THEN r$ - r$ ♦ rl$: PRINT: PRINT: GOTO 190 

130 rS = r$ + rl$: cifre = cifre + 1: Ir cifre = max + 1 AND max> 0 THEN END 

140 IF r <dl THEN n$ - n$ + "0": PRINT "0";: r = r*10: GOTO 80 
150 q = INT (r/dl): c$ - RIGHTS (STRS (q) , 1) 

160 n$ = n$ + c$: PRINT c$; 

170 r = ( r-q*dl ) *10 

180 GOTO 80 

190 nr = 0: FOR n = 1 TO i: I? MIDS (r$, n, 1) = " " THEN nr = nr + 1 

200 NEXT n 

210 FOR n = nr TO cifre-1 

220 TF MIDS (n$, n, 1) <> MIDS (nS, n + 1, 1) THEN GOTO 250 

230 NEXT n 

240 LOCATE 5, 2 + nr + LEN (STRS (d) ): PRINT SPACES (cifre-nr) : cifre = nr 
250 PRINT "Il periodo inizia dalla cifra decimale no. nr 

260 PRINT "finisce alla cifra no. cifre 

270 nc - cifre-nr + 1 

280 PRINT "ed e' composto quindi da nc; " cifre: MIDS (n$, nr, nc) 


= " " THEN nr = nr + 1 


THEN GOTO 250 


cifre = nr 
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/* 

Programma di Giuseppe Miano */ 

goto cc; 

Main 

( 

0 

dd: ; 

int k, s, b, a, h, d, j[20000], 1, t, n; 

printf ( "\n" ) ; 


k = 0; 

printf ("Lunghezza periodo: %d ", k-t); 


printf (" Nominatore "); 

printf ("Cifra dee. d'inizio: $d ", t); 


scanf ("%d", &a) ; 

printf ("\n Cifre intere: \n M ); 


printf (" Denominatore "); 

printf ("%d, \n" , j[0)>; 


scanf ("%d", &b) ; 

printf ("\n Antiperiodo: \n"); 


printf (" Fattore V "); 

for (n = 1; n < = t-1; n + + ) { 


scanf ("%d", &s) ; 

h - j [n] /b; 


j [0] = a/b; 

printf ("%d", h) ; ) 


cc: ; 

printf ("\n\n Periodo: tasto e [Returnl"); 


k + +; 

scanf (”%d", s); 


d = a/b; 

printf ("\n" ) ; 


a = 10* (a-b*d) ; 

for (n = t; n < = k-1; n + + ) { 


j I k ] - a ; 

h - j[n]/b; 


if (k <s) 1 - k-1 ; 

printf ("%d", h); 


else 1 = s-1; 

} 


for (t = 0; t < = 1; t + + ) ( 

printf ("\n\n\n"); 

} 

if (k> 1 (.& j[tj = = a) goto dd; 

} 


/* DIVISIONE INFINITA - Programma di Vincenzo Piazza */ 

tinclude <stdio.h> 

int d, r, ri, n, cifre * 0, nr, dO, di, resto[5000], 1=0, 11 = 0, q, c[5000], max; 
main O { 

printf ("Cifre decimali (0 = Periodo) "); scanf ("%d", &max) ; 

printf ("Divisore "); scanf ("%d", &d0) ; 

printf ("Dividendo ”); scanf ("%d", &dl); 

d - dO/dl ; printf ("\n\n%d, ", d) ; 
r = (d0-d*dl) *10; 

rip:; if (!r) ex (); 
ri = r / 1 0 ; 

for (n = 0; n < = 1; n++ ) 
if (resto(n) == ri) 

( resto (1 + 1) = ri; goto fine; } 
resto (1 + 1) = ri; 1++; 

if (1 == 5000) ex () ; 
if (cifre == max && max) ex (); 
cif re++; 

if (r <dl) ( 11++; c ( 11 J = 0; printf ("0"); r - r*10; goto rip; ) 
q = r/dl; printf ("%d", q) ; 

11++; o £ 1 1 ] - q; 

if (11 — 5000) ex (); 
r = (r-q*dl) *10; 
goto rip; 
fine:; nr = n; 

printf ("\n\nll periodo e' formato da %d cifre\n", cifre-nr + 1); 

printf ("Inizia alla cifra decimale no. %d\n", nr) ; 

printf ("e finisce alla cifra no. %d\n\n", cifre); 

printf ("Cifre decimali che precedono il periodo: "); 

for (n = 1; n < = nr-1; n++ ) printf ("%d", c[n]); 

printf ("\nPeriodo: "); 

for (n = nr; n < = cifre; n++ ) printf ("%d", c[n]); ex (); 


ex () 


{ printf ("\n\n"); exit (1); 
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S ul versante Amiga il Pascal è sempre 
stato trascurato a favore del "C", lin- 
guaggio più adatto ad un sistema multi- 
tasking quale AmigaDos. 

Molti dei linguaggi compilatori Pascal, 
pur presenti sul mercato Amiga, sembra- 
vano dare ragione a questa tesi: produ- 
cevano infatti file eseguibili lunghissimi e 
lentissimi; costringevano il programma- 
tore a salti mortali per realizzare quello 
che in C era possibile con poche linee di 
codice e, soprattutto, un limitato tempo di 
compilazione. 

Fino ad ora potevamo soltanto sogna- 
re un compilatore dalle prestazioni del 


Punti negativi 


di Filippo Bosi 

Kick Pascal è un 
compilatore 
talmente affidabile 
e veloce che 
sembra di operare 
su un computer 
Ms - Dos 


Punti positivi 


- Ottima velocità di compilazione, anche su floppy-disk. 

- Funziona ottimamente anche su macchine con un solo disk-drive. 

- Utilizzo delle Unit tipo Turbo Pascal. 

- Possibilità di adattare in breve tempo codice Turbo Pascal v5.0. 

- Possibilità di adattare in breve tempo codice C. 

- Ottimo supporto delle librerie di sistema (per ora vi .3). 

- Compatibile con AMIGADOS/KickStart v2.0. 

- Ottimi programmi dimostrativi. 

- Generazione di buon codice eseguibile. 

- Ottimo ambiente integrato (mai visto niente di simile su Amiga) 

- Efficiente utilizzo della ram disk durante la compilazione di sorgenti. 

- Adattamento del programma tramite numerose opzioni di configurazione. 


celeberrimo Turbo Pascal Borland, se 
non fosse per il Kick Pascal V2.0 della 
HimpelSoft. Addio lunghe attese per la 
compilazione, specie se non si possiede 
un Hard Disk; il linguaggio di cui ci occu- 
piamo compila in memoria, proprio co- 
me il Turbo Pascal per Ms - Dos, e nulla 
ha da invidiare quanto ad integrazione di 
Editor, Compilatore e Linker. 


Kick Pascsi In sintesi 


Dischetti 


T utti i file necessari per utilizzare il 
linguaggio sono contenuti in soli due 
dischi. 

Nel primo trovano posto l’editor/com- 
pilatore (corredato di tutti i file Include 
necessari per la creazione di un esegui- 
bile) mentre nel secondo sono presenti 


- Lentezza file Requester 

- Configurazione in tedesco 

- Codice di startup un po’ troppo pesante 


lateitm»; SiPascal.coef ig 

, CISÉflIÉ 


lisa 




File-Eequester einsteUen 
tefauftwerte def intere# HI 

- */ v" k , y„ -, >?-■ « *■ % i 1 . . • i • > « * ■* • v* ■ '*• r 1 

H t ndcw- 1 InsteUungen 

S‘ . \*V> « V V "• r . *• '• V > .•*X . * CKK* . .. • *.• • ’^rjTr* • . 

Prssrìfwende 


Amiga; finalmente 
un Pascal su misura 
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i sorgenti di esempio, divisi in due direc- 
tory: 

Sysprog - esempi di programmazione 
"a basso livello”, che utilizzano funzioni 
specifiche delle librerie di sistema Amiga. 

Demo - esempi di programmazione 
generici (grafica, suono, matematica, 
sintesi vocale, eccetera...). 

Il programma può quindi essere como- 
damente utilizzato anche da chi possie- 
de un Amiga con un solo drive, senza 
esser costretti a cambiare dischetto in 
continuazione (a meno che non si abbia 
bisogno di utilizzare i file sorgenti di 
esempio) e, come se non bastasse, i 
tempi di compilazione sono fantastici an- 
che per chi non possiede un Hard Disk. 


Le librerie di sistema 

U no dei punti di forza del Kick Pascal, 
oltre a quello di disporre di un ottimo 
ambiente integrato di programmazione, 
è la possibilità di interfacciarsi in due 
modi (avete letto bene...) con le librerie 
di Amiga: alla classica maniera del C, 
tramite i file Include, oppure utilizzando 
le Unlt, files precompilati contenenti gli 
headerdi sistema (del tutto simili alle Unit 
note in ambiente Turbo Pascal MS - Dos) 
velocizzando così di molto la compilazio- 
ne (vedi tabella). 

Molto comodo è, inoltre, il supporto del 
file requester standard della Arp Library, 
accessibile molto facilmente tramite la 
Unit Window (programma Arpfrq.p). 
Semplice, vero? E, soprattutto, molto ef- 
ficiente, date le contenute dimensioni de- 
gli eseguibili prodotti, che non necessita- 
no di librerie run-time esterne particolari. 


Se non siete pratici di Turbo Pascal, 
molto probabilmente non conoscete le 
Unit; in questo caso può essere utile 
esaminare con attenzione il programma 
Qcdemo.p di esempio (che utilizza, ap- 
punto, la Unit Qcdisegna.p) riportato in 
queste stesse pagine. 

L’ambiente integrato 

A ppena lanciato, il compilatore mo- 
stra una schermata di presentazione 
e la richiesta dello spazio di lavoro (Wor- 
kSpace), misurato in KB, da riservare 
aireditor. 

Qui c’è da muovere uno dei (pochi) 
appunti negativi al Kick Pascal: lo spazio 
viene sì riservato, ma in memoria 
chip(l), allocazione, questa, alquanto as- 
surda, se si pensa che un sorgente non 


ha alcun bisogno di essere elaborato dai 
chip custom dell'Amiga. 

Speriamo che a questa stranezza ven- 
ga posto rimedio in una futura release del 
programma; per ora limitiamoci a non 
abbondare nel riservare memoria all’edi- 
tor, se non in caso di effettiva necessità 
(programmi veramente complessi). 

Subito dopo aver risposto al quesito, ci 
ritroviamo nell’editor, molto simile a quel- 
lo del Turbo Pascal, anzi, talmente simile 
che i comandi di cancellazione, sposta- 
mento e copia di blocchi sono gli stessi. 


I menu 

P remendo il tasto destro del mouse si 
hanno a disposizione 5 menu, che 
qui di seguito commentiamo. 


Nome Programma 

Dimena . sorgente 

Tempo compii 

. (sec.) 

Dimensione file oggetto 



Floppy 

Hard 


(in bytes) 

DISEGNA. P (unit) 

3353 B./140 Linee 

30 

10 

9356 

(prima compilazione) 



10 

8 


(seconda compilazione) 



b 

3 

9884 

(unit invece di include) 

LINES. P 

3538 B./180 Linee 

5 

5 

10188 


SHOWIFF.P 

20140 B./688 Linee 

13 

11 

16534 



Tabella del test di compilazione effettuati 

Notare le differenze tra i tempi di un hard disk e quelle di un floppy 
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Project 

E’ il menu standard di tutti (o quasi) i 
programmi di Amiga. Da questo ambien- 
te si caricano, salvano ed eventualmente 
stampano i file sorgenti contenuti nella 
memoria dell'editor. Notiamo la presenza 
delle voci Object ed Exe-File, per mezzo 
delle quali possiamo salvare come file 
oggetto (nome fi le. o) o come esegui- 
bile un sorgente compilato in memoria. Il 
requester utilizzato nell’ambiente inte- 
grato risulta un po’ lento nella lettura dei 
file. Non si riesce a capire perché non 
venga utilizzato l'ottimo requester della 
Arp Library, dal momento che è suppor- 
tato dal compilatore in modo egregio me- 
diante una apposita Unit. 

Edit 

Contiene varie opzioni (tra cui Go To, 
Find e le altre classiche) per eseguire 
modifiche sul testo del sorgente. 

Execute 

E' il menu per mezzo del quale diamo 
inizio alla compilazione del sorgente pre- 
sente in memoria. Sempre da qui poi 
possiamo farlo eseguire. 

Options 

Si possono scegliere sia le varie opzio- 
ni di compilazione (T est dello Stack, T est 
di Overflow, ecc.), che la configurazione 
dell’editor. Possiamo persino scegliere il 
linguaggio dei testi del menu: purtroppo 
la scelta è limitata al (solito) Inglese e al 
Tedesco(!). 

Info 

Informazioni sul programma e sui suoi 
autori. 

Premendo il tasto Esc, passiamo dal- 
l'editor ad una specie di Shell, che ricor- 
da molto l'ambiente del Turbo Pascal 
V3.x. Appare, infatti, il simbolo V* in fon- 
do alla videata, seguito dal cursore. Se a 
questo punto premiamo il tasto Return, 
appariranno, nella parte alta della pagi- 
na, alcune righe di help sui comandi 
disponibili, peraltro molto esplicative. Da 
qui si possono fare nè più nè meno che 
le cose possibili da menu, con un solo 
comando aggiuntivo: premendo la barra 
spaziatrice si ottiene una mappa abba- 
stanza dettagliata della suddivisione in 
Hunks del codice eseguibile creato da 
KP e l’occupazione di memoria del file 
sorgente contenuto nell'editor. In questo 


ambiente si lavora unicamente da tastie- 
ra, rinunciando al mouse, ai menu ed ai 
requester per le operazioni sui files. 

Configurazione 

N ello stesso disco in cui è presente il 
compilatore, è presente il file esegui- 
bile Pascalprefs, che altro non è che il 
programma che permette di configurare 
Kick Pascal al meglio, secondo le nostre 
esigenze. 

Le opzioni presenti sono veramente 
moltissime, ma si verifica un solo (picco- 
lo) problema: i messaggi che appaiono 
sono in tedesco, lingua non certo cono- 
sciuta da moltissimi utenti di computer, 
perlomeno non come l’inglese, che vo- 
lenti o nolenti siamo stati costretti ad 
imparare, grazie alla quasi totale prove- 
nienza di software da paesi anglofoni. 

Nella prima schermata viene richiesto 
in quale file salvare i dati della configura- 
zione (per default si assume S: Pa- 
scal . conf ig). Appena risposto a que- 
sta domanda, appare un menu con, nel- 
l’ordine, le seguenti opzioni: 

Laden = carica la configurazione dal 
file scelto precedentemente: 

Abspeichern = memorizza la configu- 
razione scelta; 

Editor-tasten Belegen = scelta dei 
comandi dell'editor; 

File-requester Einstellen = configu- 
razione del file requester: 

Defaultwerte Definieren = configura- 
zione di alcuni parametri di default per il 


compilatore (workspace, ottimizzazioni 
del codice, etc.); 

Wlndow-elnstellungen = configura- 
zione dell’editor. E’ possibile scegliere lo 
schermo di workbench per la visualizza- 
zione dell’editor oppure uno schermo 
"custom"; si può anche specificare il font 
utilizzato, le dimensioni della finestra e 
perfino il suo nome; 

Programmende = uscita dal program- 
ma di configurazione (attenzione a non 
uscire prima di aver salvato la configura- 
zione scelta...). 

Una volta scelta l’opzione desiderata, 
appare una schermata con le domande 
del caso. Sarebbe troppo lungo dare tutte 
le spiegazioni (o, meglio, traduzioni) del- 
le schermate che appaiono in seguito. 

Tenete presente, ad ogni modo, che 
torneremo prossimamente sul significato 
delle domande effettuate , a mano a ma- 
no che svilupperemo , su queste pagine, 
argomenti legati al Kick Pascal. 


Il linguaggio 

M olto simile al Turbo Pascal V5.0, 
Kick Pascal è un Pascal con molte 
estensioni rispetto allo standard, che per 
questo si sposa ottimamente con Amiga. 

Risulta di facile apprendimento per chi 
conosce già un linguaggio come Amiga- 
Basic e desidera sfruttare a fondo le ca- 
pacità della macchina senza dovere fare 
salti mortali (leggi chiamate di libreria in 
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Basic) oppure imparare il C (croce e de- 
lizia dei programmatori). 

KP è ottimo per chi, provenendo da Ms 
- Dos, conosce il Pascal (Borland o Mi- 
crosoft). Purtroppo non utilizza, per l’e- 
secuzione di istruzioni grafiche, i coman- 
di BGI (Borland Graphics Interface), ma 
non dovrebbe essere essere una grossa 
difficoltà costruirsi una Unit contenente 
procedure che emulino la BGI (anche 
questo è un argomento che affronteremo 
tra breve; un po’ di pazienza...). In tal 
modo si potranno portare con facilità 
programmi dal mondo IBM al mondo 
Amiga. 

K. Pascal contro Lattice C 

O vviamente sarebbe estremamente 
riduttivo comparare Kick Pascal ad 
uno dei vecchi (ed inefficienti) compilatori 
Pascal di Amiga; sarebbe come se si 
volesse confrontare la velocità di un in- 
terprete con quella di un compilatore. 

Viene quindi pubblicato, in queste pa- 
gine (ed adattato opportunamente) il pro- 
gramma dimostrativo Lines.c, ben noto 
a chi possiede il compilatore Lattice C 
5.04 (è infatti presente tra i file di esempio 
nella confezione originale). 

Il lavoro di "traduzione" da "C" a Kick 
Pascal non ha presentato particolari pro- 
blemi; ha richiesto, all’incirca, una trenti- 
na di minuti, prevalentemente impiegati 
nel sostituire le istruzioni di assegnazio- 
ne ("= M del C con del Pascal) e le 
definizioni delle variabili. L'interfaccia 
con le librerie di sistema è, a parte qual- 
che rara eccezione, identica in entrambi 
i compilatori e non ha presentato alcun 
problema. 

Il codice generato da Kick- Pascal è di 
qualità paragonabile a quello prodotto 
dal Lattice C, pur se penalizzato da un 
codice di startup forse un po’ lungo. 


sistemi con Floppy Disk, croce di moltis- 
simi altri compilatori (leggasi C e Modu- 
la-2 per Amiga...). 

Ci troviamo, in conclusione, di fronte 
ad un ottimo compilatore Pascal in am- 
biente AmigaDos, vicinissimo agli stand- 
ard Pascal cui sono abituati gli utenti Ms 
- Dos, con il vantaggio di avere una mac- 
china come Amiga che, se sfruttata a 
dovere, dovrebbe far apparire l’Ms - Dos 
un sistema inadeguato e. quantomeno, 
vecchiotto. 


Test di compilazione 


S ono stati eseguiti alcuni test, tenendo 
conto (vedi tabella) soprattutto di un 
dato fondamentale (il tempo di compila- 
zione) variabile molto critica, soprattutto 
per chi non possiede un Hard Disk. 

Bisogna ammettere che i risultati sono 
sbalorditivi: Kick Pascal, a mano a mano 
che compila programmi, mantiene in me- 
moria i file Include e le Unit utilizzate 
nelle precedenti compilazioni (i pochi che 
non dispongono di almeno 1 
MB di memoria non potranno 
avvantaggiarsi moltissimo di 
tale caratteristica). 

I risultati di questa tecnica si 
fanno sentire, pesantemente; 
dopo la compilazione del pri- 
mo programma di una sessio- 
ne di lavoro con Kick Pascal, 
praticamente scompare il diva- 
rio di velocità di compilazione 
tra sistemi con Hard Disk e 


AV 


program LinesDemo; 

(per COMPUTER CLUB} 

{ LIHESDEMO . p} 

{ $i nel "graphics . iib" } 

{ Programma originale : } 

($incl M intuition.lib" } 

{ LINES. c - a line drawing demo for Amiga} 


(by John Riley, Lattice, Ine.) 

cor.st MaxLen - 100; 

{ (LATTICE C v5 . 04 ) ) 


{Tradotto in KICK-PASCAL v2.0) 

var 

(a scopo dimostrativo} 


(da Filippo Bosi - Lugo (RA) } 

wakeup, code: short; 
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w : p_window; 

yd[i] := randomdO) +1; 

rp: p_rastport; 

end; 

cdrp : Ptr; 


message2 : p_IntuiMessage; 

for i:=0 to 1 do for j:*0 to 15 do begin 

x,y,xd,yd: array[0..1] of integer; 

ox[i] [j ] : =0 ; 

co: integer; 

oy[iJ [ j] : =0; 

class : long; 

end; 

ox,oy:array [0..11 of array [0..15] of integer; 

co :■= 1; 

xx:array [0..127] of integer; 

j := 0; 

xlim, ylim: integer; 


ishort: short; 

é 

i,k: integer; 

repeat 

j: long; 


Function event : boolean; 

SetAPen (rp, 0) ; 

Move (rp, ox [0J [ j mod 16],oy(0](j mod 16)); 

Draw (rp, ox [ 1 ] ( j mod 16J,oy(l][j mod 161); 

begin 

SetAPen (rp, co) ; 

Move (rp, x[0],y[0J); 

case class of 

Draw(rp,x(l),y[l] ) ; 

CLOSEWINDOW: 


event : =FALSE; 

if (randomdO) < 2) then 

NEWSIZE : 

begin » 

begin 

co:=co + 1; 

xlirn := w A .Width; 

if (co > 7) then co :■ 1; 

ylim := w A .Height; 

SetAPen (rp, co) ; 

event :=TRUE; 

end; 

end; 


else 

for i:«0 to 1 do 

event :=TRUE; 

begin 

end; 

oxli][(j+10) mod 16) := x(ij; 

end; 

oy[i)[(j+10) mod 16) :■ y(i); 

begin 

x(i) :« x[i] +xd[i) ; 

y [ i ) : - y 1 i ) +yd [ i ) ; 
if(x[i) < 2) then 

w:=Open Window(100, 100, 300, 100, $0201, 

begin 

CLOSEWINDOW+ NEWSIZE, 

x[i) 2; 

WINDOWDEPTH+WINDOWDRAG+WINDOWCLOSE+ 

xd[i) := -xd(i) ; 

GIMMEZEROZERO+WINDOWSIZING, 

end 

' Nervous Lines (KICKPASCAL version) ' , 

else if(x[i] > xlim) then 

Nil, 

begin 

50, 50, 640, 400) ; 

x(i] := xlim; 

OpenLib (Gf xBase, "graphics . library" , 0) ; 

xd(i] :« -xd(i) ; 
end; 

if(GfxBase = Nil) then Halt(10); 

if(y[i] < 2) then 

OpenLib (IntBase, "intuition . library" , 0) ; 

begin 

if(IntBase - Nil) then 

y[i) := 2 ; 

begin 

yd [ i ] : = -yd [ i ) ; 

CloseLib (GfxBase) ; 

end 

Halt (10) ; 

else i f (y [ i ] > ylim) then 

end; 

begin 

rp w A .RPort; { Get thè raster port pointer } 

y[i) :« ylim; 
yd[i) := -yd[i) ; 

SetAPen (rp, 3) ; { Set foreground pen to white ) 

end; 

if (randomdO) < 2) then 

SetDrMd (rp, JAM1) ; { Draw with foreground pen ) 

begin 

xlim := w A .Width; 

if(xd[i) < 1) then k 1; 

xd [i J : = random (8) ; 

ylim :« w A .Height; 

if(k » 1) then xd(i) -xd(i); 

for i:=0 to 1 do 

k := 0; 

begin 

end; 

x[i] := random(xlim) + 1; 


y[i) := random(ylim) + 1; 

if (random(lOO) < 50) then 

xd[i] := randomdO) +1; 

begin 
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if(yd[i] < 1) then k 1; 

begin 

yd [ i ) : = random ( 8 ) ; 

class := rr.essage2 A .Class; 

it(k - 1) then yd[i) := -ydli]; 

code message2 A . Code; 

k := 0; 

Reply_Msg(message2) ; 

end; 

end; 

end; 

end; 


until (not (event)); 



i f ( w A . UserPort A • mp SigBit <> 0) then 

CloseWindow (w) ; 

begin 

CloseLib (GfxBase) ; 

message2 : - Get Msg ( w A . UserPort ) ; 

CloseLib (IntBase) ; 

if(message2 <> Nil) then 

end. 


Program QCDemo; 

ApriFinest r a; 
repeat 

{ QCDEMO. p) 

for i:=l to 1000 do 

{ dimostrativo per KICK PASCAL) 

begin 

{by Filippo Bosi) 

Cerchio (ACasoX, ACasoY) ; 

(richiede il file QCD I SEGNA. p) 

Quadrato (ACasoX, ACasoY) ; 
end; 

CJses QCDisegna; 

Pul isciFinest ra; 


until (GadgetChiusura) ; 

var irlong; 

ChiudiFinestra; 

beg i n 

end. 


Unit QCDisegna; 

Const MaxColor - 7; 

(QCDISEGNA. p) 

( numero ma. colori schermo WorkBench) 

(Unit per il programma qcdemo.p) 

Altezza = 100; 

Larghezza - 400; 

Interface 

( -- dimensioni della finestra — ) 

(queste sono le funzioni) 

(messe a disposizione di un) 

Titolo - ' Quadrat i&Cerchi demo by F.Bosi'; 

( programma Kick-Pascal che) 

(specifichi "USES Disegna;") 

var rp:p_RastPort; 


Win:p Window; 

Procedure ApriFinestra; 

Procedure Cerchio (x, y : long) ; 

Procedure Quadrato <x, y : 1 ong) ; 

xlim,ylim: long; 

Procedure ChiudiFinestra; 

Procedure ApriFinestra; 

Function Gadget Chiusura : boolean; 

(Apre finestra e le librerie intuition e graphics) 

Function ACasoX:long; 

begin 

Function ACasoY: long; 

Openlib ( IntBase , "intuition. library", 0) ; 

Procedure PulisciFinestra; 

Openlib (GfxBase, "graphics . library", 0) ; 

tiriplementat ion 

Win:=Open Window (80, 40, Larghezza, Altezza, $0100, 


CLOSEWINDOW, 

(tutto ciò' che sta in questa sezione) 

WINDOWCLOSE, Titolo, Nil, Larghezza, Altezza, 

(non e' visibile al programma) 

Larghezza, Altezza) ; 

(che utilizza la unit, a meno che) 

if Win =■ Nil then begin 

(non sia stato incluso nella) 

Writeln ('Unit DISEGNA - Procedura ApriFinestra : ' ) ; 

(sezione INTERFACE) 

Writeln('Non riesco ad aprire la finestra !!'); 
Halt (20) ; 

(Sincl "graphics. lib" ) 

( torna al s.o. con codice di errore 20) 

(Sincl "intuition. lib" ) 

end; 


rp : -Win A . RPort ; 
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xlim: «Win A . Width; 
ylim:=Win A . Height; 
end; 


Procedure PuliaciFinestra; 

{ -- cancella il contenuto della finestra 

begin 

ClearScreen (rp) ; 

Ref reshWindowFrame (Win) ; 
end; 


Function ACasoX; 

{ — ritorna un numero a caso entro il limite massimo 
x della finestra — } 

begin 

ACasoX : =Random (xlim) ; 
end; 


maxx : =x+r+4 ; 
minx : =x-r-4 ; 
maxy :-y+r+4; 
miny :=y-r-10; 

NeiLimiti := (maxx < xlim) and (minx > 0) and (maxy 
< ylim) and (miny > 0); 
end; 

Procedure Cerchio; 

{ — disegna una circonferenza di raggio casuale 
solo se sta nella finestra — ) 

var r:long; 

begin 

r : -random (80) ; 

if NeiLimiti (x, y, r) then begin 

SetAPen (rp, random (MaxColor ) ) ; 
DrawEllipse (rp, x, y, r, r ) ; 
end; 

end; 


Function ACasoY; 

{ -- ritorna un numero a caso entro il limite massimo 
y della finestra — ) 

begin 

ACasoY : =Random (yl im) ; 
end; 


Function Max (a, b: long) : long; 

{ -- ritorna il valore massimo tra a e b 

begin 

if a>b then b:=a; 

Max : =b; 
end; 


Function Gadget Chiusura; 

{ — ritorna TRUE se e' stato premuto il gadget di 
chiusura finestra — ) 

var message2 : p Intu iMessage; 
class, code: long; 

begin 

Gadget-Chi usura : =FALSE; 

if (Win A .UserPort A .mp_SigBit <> 0) then 
begin 

message2 := GetMsg (Win~ .UserPort) ; 
if(message2 <> Nil) then 
begin 

class := message2 A . Class; 
code:- message2 A . Code; 

Reply_Msg (message2) ; 
end; 

if class = CLOSEWINDOW then 
GadgetChiusura : =TRUE; 
end; 

end; 


Function NeiLimiti (x, y, r: long) :boolean; 

{ Ritorna TRUE se una figura sta in finestra ) 
var maxx, maxy, minx, miny : long; 

begin 


Procedure Quadrato ; 

(disegna un rettangolo solo se sta nella finestra) 

var ri, r2: long; 

begin 

ri : «random (4 0) ; 
r2 :=random(40) ; 

if NeiLimiti (x, y, Max (ri , r2) ) then begin 
SetAPen (rp, random (MaxColor) ) ; 

RectFill (rp,x,y,x+rl,y+r2) ; 
end; 

end; 

Procedure ChiudiFinestra; 

(chiude la finestra e le librerie intuition e 
graphics) 

begin 

Close_Window (Win) ; 

Closelib(IntBase) ; 

Closelib (GfxBase) ; 
end; 

(codice di startup della Unit) 

(viene eseguito una sola volta all'inizio del 
programma ) 

begin 

Randomize; 

end. 
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A cura di Luigi Callegari 

AmiGazzetta N. 11, 

un dischetto per "Amigo" 

T 

AmiGazzetta è un dischetto venduto come 
supplemento di Commodore Computer Club, 
contenente materiale originale tratto dalla Rivista 
o di pubblico dominio, selezionato tra quanto 
di meglio esistente nell’abbondante circuito 
internazionale per Amiga 



A miGazzetta è un dischetto venduto 
come supplemento di Computer 
Club, contenente materiale originale 
tratto dalla Rivista o di pubblico dominio, 
selezionato tra quanto di meglio esisten- 
te nell'abbondante circuito internaziona- 
le per Amiga. 

Il dischetto consiste di una raccolta di 
file eseguibili, in gran parte sia da Wor- 
kbench che da CLI, tutti accompagnati 


dalla originale documentazione in file 
ascii separati, leggibili (e stampabili op- 
zionalmente su carta) da Workbench o 
CLI con una apposita utility fornita. Tutti 
i file sono verificati per funzionare con 
qualunque tipo di hardware (ECS, Amiga 
500, 1000 e 2000) e software (Kickstart 
VI .2/1 .3), scelti tra quelli presenti su nu- 
merosi dischetti di pubblico dominio, se- 
lezionati tra le ultime novità. 


Ai programmi veri e propri possono 
accompagnarsi saltuariamente icone da 
usare con i propri programmi, file di do- 
cumentazione supplementari (come l'e- 
lenco delle banche dati ad accesso gra- 
tuito della rete Fidonet di questo nume- 
ro, oppure l'elenco di tutti gli articoli ap- 
parsi su Amiga nella pagine di C.C.), 
dimostrativi grafici e tutto ciò che di altro 
può interessare degli utenti attivi di Ami- 
ga- 

Tutti i file, sia gli eseguibili sia le docu- 
mentazioni, sono sottoposti a compres- 
sione con un apposito programma (Po- 
werPacker Professional V3.0a) in modo 
da stipare quanto più materiale possibile 
sul dischetto. 

I file eseguibili vengono riportati alla 
condizione originale ("scompattati") ed 
eseguiti come di consueto in modo del 
tutto trasparente all’utente, così come i 
file di documentazione che vengono de- 
compressi e visualizzati (o stampati) dal- 
l’apposito programma PPMore. 

In questo modo, mantenendo pratica- 
mente inalterata la rapidità ed immedi- 
atezza d’uso e di accesso dei file sul 
disco, si può materialmente stipare su 
ogni numero di Amigazzatte una quantità 
di dati del 30 - 40% superiore agli 880 K 
standard. 



Computer Club • 43 



Recensioni 



Procuriamoci Amigazzetta 

I l dischetto AmigaGazzetta N. 11, in 
formato AmigaDOS, può essere acqui- 
stato soltanto per corrispondenza, in- 
viando la misera somma di lire 12.000 
(dodicimila) a mezzo conto corrente po- 
stale numero 37952207 intestato alla Sy- 
stems Editoriale 

Si rammenti che non è possibile richie- 
dere la spedizione per contrassegno e 
che è importante specificare il proprio 
indirizzo completo ed il numero di Ami- 
Gazzetta desiderato. 

□ □ 

Collaborazione 

Chi volesse collaborare inviando il pro- 
prio materiale a AmiGazzetta. deve pre- 
parare un dischetto da 3,5" in formato 
AmigaDOS contenente il file eseguibile, 
un file di documentazione (anche som- 
mario) in formato ascii puro (senza codici 
di controllo nè di impaginazione, scritto 
con un normale editor ascii o con un 
programma di videoscrittura e salvato in 
formato ascii piano) che illustri l’uso pra- 
tico del programma e. eventualmente, il 
file sorgente. E’ importante inviare anche 
una autorizzazione scritta e firmata, su 
carta e non in un file, dove si dichiara di 
sottoporre all'attenzione della Systems 
Editoriale il proprio software (citandolo 
per nome), garantendo che si tratta di 


lavoro personale ed originale non com- 
prendente parti soggette a copyright, au- 
torizzando l’editore alla pubblicazione, 
nei tempi e nei modi da esso voluti, senza 
richiedere alcun compenso e senza fine 
di lucro da parte di alcuno, come mate- 
riale di pubblico dominio. 

Oltre ai programmi, in qualunque lin- 
guaggio per Amiga (Amos. Assembler, 
AmigaBasic, C, Fortran. Pascal. Assem- 
bler, Modula-2. Draco. Lisp ecc. ecc.), si 
possono naturalmente inviare proprie 
elaborazioni grafiche, icone e traduzioni 
di programmi di pubblico dominio, sem- 
pre che tali traduzioni non violino quanto 
sancito dall'autore del programma. 


Contenuti 

G li appassionati di grafica non potran- 
no che apprezzare il famoso pro- 
gramma Mostra, scritto da Sebastiano 
Vigna (Sviluppatore Commodore mila- 
nese. ben noto nel circuito di pubblico 
dominio internazionale). 

Si tratta probabilmente del più comple- 
to visualizzatore di file grafici IFF. in 
grado di visualizzare qualunque formato 
di file in ogni modo grafico ed a qualun- 
que risoluzione (comprese le cosiddette 
"intermedie"). Le istruzioni (complete, in 
lingua originale inglese) sono natural- 
mente incluse nel dischetto. Chi acqui- 
sta il dischetto Amigazzetta 1 1 riceve- 
rà anche la completa traduzione in 
italiano. 

Molto più ludico il programma HitMe, 
che esegue un test della velocità dei 
riflessi e di spostamento del mouse del- 
l’utente, con tanto di temporizzazioni in 
decimi di secondo, effetti sonori e classi- 
fica su disco. 

GMan e invece un utilissimo program- 
ma per ottimizzare i contenuti dei propri 
dischi, particolarmente godibile da chi 
possiede Hard Disk Infatti tale program- 
ma può reperire e segnalare il nome 
(completo di path) di tutti i file "doppi" in 
un dato volume o serie di directory. 

Altro programma serissimo è MON di 
Timo Rossi. Si tratta di un completo mo- 
nitor. in grado di eseguire circa 40 fun- 
zioni, tra le quali lo spostamento di aree 
di memoria, l’esecuzione passo passo 
o con breakpoint di un programma as- 
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FlashDisk è un ottimizzatore di di- 
schetti. che consente di copiare un floppy 
su di un altro (occorrono due drive) ridi- 
sponendone la struttura DOS in modo che 
successivi accessi da Workbench o da 
CLI risultino molto più veloci. Controllato 
da gadget, prevede tre modi di ottimizza- 
zione (deframmentazione dei file, siste- 
mazione per accesso rapido da Wor- 
kbench e misto) ed altre opzioni. 

SpaceWar è un semplice giochino per 
due avversari, il cui scopo è manovrare 
da tastiera o joystick la propria astronave 
per evitare di collidere con pianeti, mano- 
vrando in modo utile, a dispetto delle 
forze gravitazionali, per abbattere l'av- 
versario. 

Il programma "Mostra" 

V i sono in circolazione parecchie Utili- 
ties per visualizzare i files IFF ILBM, 
ma nessuna è veramente completa: se 
un visualizzatore può mostrare disegni in 
overscan. ciascun grafico con più di 640 
pixel su di una linea viene shiftato come 
se fosse a 700 pixel; alcuni programmi 
possono visualizzare soltanto una direc- 
tory di grafici costringendo l'utente ad 
immettere tutti i nomi dei files; altri vanno 
in crash se si passano loro grafici in PAL, 
altri ancora sporcano il grafico con la 
barra di intestazione se si preme il pul- 
sante destro del mouse. 

E' raro disporre di un'opzione che forzi 
un modo schermo (per i tecnici: i vecchi 
files IFF ILBM non avevano il chunck 
CAMG!) e di un file requester come si 


sembly. la gestione degli hunk di un file 
eseguibile, la gestione delle risorse di 
Exec, lo I/O a basso livello da disco e 
molto altro ancora. 

Anche in questo caso, le istruzioni 
complete tradotte in italiano verranno 
inviate a chi acquista il disco Amigaz- 
zetta 1 1 . 

SetFont (V2.7) è l'ultima versione di 
una utility scritta da Dave Haynie (uno dei 
padri dell’Hardware dell'Amiga 3000) in 
grado di sostituire la consueta fonte To- 
paz 8" del Workbench con una qualun- 
que altra, consentendo nel contempo 
una grande varietà di controlli. 

SuperPlay è un riproduttore di file so- 
nori in formato iff ssvx od altro. Sono 
previste varie opzioni per controllare il 
volume, la velocità di riproduzione, l'ese- 
cuzione da file batch di più motivi in una 
directory ed altro ancora. 

Il nome non deve ingannare. Echo è 
una versione speciale dell'omonimo co- 
mando Shell che consente una grande 
varietà di opzioni, tra cui la pulizia dello 
schermo, la collocazione del testo ad una 
qualunque posizione della finestra di out- 
put, lo scrolling verso l'alto o verso il 
basso e la generazione semplificata di 
codici ansi di controllo. 

ScreenTolff è un programma che ri- 
mane "residente", ovvero gira in sotto- 
fondo agli altri task ed in modo invisibile, 
permettendo in qualunque momento alla 
pressione di un tasto di fare comparire un 
requester e di salvare lo schermo attual- 
mente visualizzato come file IFF. 


Berserker IVa è l’ultima versione di un 
antivirus scritto interamente in linguaggio 
macchina da Ralf Thanner. E’ in grado di 
riconoscere istantaneamente molti tipi di 
virus da bootblock e link ed è studiato in 
modo da riconoscere, tramite severo 
controllo di vitali parametri, la presenza 
di qualunque tipo di virus in memoria, 
anche attualmente non conosciuto. 

GShell è una semplice e compattissi- 
ma utility per la manipolazione di file e 
directory, che consente cioè di eseguire 
da Workbench (con mouse, gadget e 
menu) operazioni normalmente eseguite 
a suon di polpastrelli da Shell. 
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deve quando si ignora il nome del file (chi 
si ricorda i nomi dei files di Grabbit?). 

Il programma Mostra, che elimina que- 
sti (ed altri) problemi, fa un utilizzo mas- 
siccio della libreria arp. Il pattern mat- 
ching. il tracking delle risorse, le funzioni 
residenti e tutto il resto sono utilissime, 
con l’unico svantaggio di dovere inserire 
il file ARP.Iibrary nella directory associa- 
ta al device logico LIBS:. In caso contra- 
rio Mostra non funzionerà. 

Mostra può essere invocato dal Wor- 
kbench: chiamato da solo presenta il re- 
quester di file e mostra il grafico prescelto 
sinché non si sceglie Cancel o non si 
chiude la finestra del requester Arp. Altri- 
menti si possono scegliere più icone, tra- 
mite il meccanismo della selezione mul- 
tipla. oppure si può modificare appropria- 
tamente il Default Tool delle icone asso- 
ciate ai grafici in modo che lo richiamino. 
Facendolo con un Cat o List si ottiene 
uno Slideshow Automatico. 

Mostra può trattare qualunque tipo di 
file IFF ILBM (inclusi files di Photon 
Paint. Excellence! eccetera). Questo si- 
gnifica che prevede non solo i form iff 
ilbm, ma anche gli ilbm nidificati, ftxt, 
form. cat, list e prop! Tenta sempre di 
trovare il tipo di schermo idoneo e non si 
ribella se si chiede di vedere brush di 1 xl 
in grafici molto grandi (sino a 5120 x 
4096). In ogni modo è consentito forzare 
il tipo di schermo con alcune opzioni. 

Una delle caratteristiche principali in 
questa versione è il supporto diretto dello 
sham ed il supporto indiretto dei modi 


Dynamic HAM e Dynamic Hi-Res. Si noti 
che si ha un completo supporto dello 
Sham e che si possono fare scorrere 
grafici in questo formato in schermi pic- 
coli. 

Ovviamente i movimenti verticali ri- 
chiedono parecchio lavoro da parte di 
Amiga. Per il Dynamic Hi-Res ed il Dyna- 
mic HAM il programma Mostra chiama il 
programma Dyna-Show della NewTek. 
che deve essere presente in una delle 
path di ricerca comandi del vostro siste- 
ma (il modo più semplice è di porlo in C:). 
In questo modo si può vedere qualunque 
tipo di immagine, ma ovviamente nel mo- 
do Dynamic si perdono alcune delle ca- 
ratteristiche più potenti di Mostra, come 
ad esempio il dimensionamento dello 
schermo. 

Ad esempio, la seguente linea Shell... 

M Mypics : * SECS 5 FADE 1 NOMOUSE 
3LACKBACKGR0UND REPEA7 CENTER ALL 

...genera un vero, infinito, slideshow 
dei grafici nella directory MyPics : ed in 
tutte le sue subdirectory, centrando e 
senza puntatore del mouse. Per sospen- 
dere lo slideshow si deve usare Ctrl-C. 

Ancora... 

K df 0 : * . irr.ace dfO : Pictures/ * .pie 
HIRES LACE 

...mostra tutti i files che terminano con 
.image collocati nel drive dfo: ed i files 
che terminano con .pie nella directory 
dfO:Pictures. Mostra forzerà l’uso del- 
l'alta risoluzione, con schermi interceda- 
ti. Attivando il flag hires sui grafici con più 
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di 4 bitplanes solitamente porta a non 
vedere alcunché. 

M dhO : hirespic LOR2S NOI.ACE 

...mostrerà’ un grafico in alta risoluzio- 
ne in bassa risoluzione ("zoomandoci"). 
Ci si può spostare completamente con i 
tasti cursore come descritto sopra. 

□ □ 

Caratteristiche avanzate 

P er la massima flessibilità, Mostra 
consente di usare files di startup e 
ToolTypes Startup. con i quali si configu- 
rano i programmi per ogni esigenza. 

Il file di startup standard si chiama 
Startup-Mostrae deve essere contenu- 
to in S:. Mostra lo cerca quando viene 
avviato dal CU. Il formato di questo file di 
avviamento è esattamente lo stesso del 
formato di linea di chiamata del CU. tran- 
ne, ovviamente, il nome del comando 
”M". I comandi possono essere spezzati 
in più linee o raggruppati in una singola 
linea. Ciascun switch o keyword nel file 
di startup agisce come default e viene 
sovrascritto o commutato da qualunque 
argomento della linea di comando. 

Gli switch della linea di comando agi- 
scono come commutatori (se il file di 
startup ha la parola ALL e si usa "M * 
ALL" non si andrà' nelle subdirectory), 
mentre le keyword agiscono semplice- 
mente in base al valore (usando Fade 1 
nel file di startup e dicendo Fade 3 nella 
linea di comando i grafici vengono sfu- 
mati a velocità 3). 

Le opzioni concernenti i files di startup 
sono Nostartup e Batch. La prima inibi- 
sce la ricerca dei files di startup. la secon- 
da vuole un completo path con nome del 
file che Mostra usa come file di startup. 

Si possono fare le stesse cose con una 
icona che non ha il file collegato e porre 
nel ToolType delle wildeards; le wil- 
dcards saranno poi mostrate con quelle 
opzioni. Non usando invece le wildeards 
si ottiene un’icona di stile: usando Shift e 
cliccando su alcune icone. Shift e cuc- 
cando su di una icona di stile (in quest'or- 
dine!) e poi Shift e doppio click sull icona 
Mostra (o direttamente Shift e doppio 
click sull’ultima icona, se il suo default 
tool è Mostra): si vedranno i files grafici 
selezionati con le opzioni specificate nel- 
l’icona di stile. Questa richiama da sé il 
requester di file. Si noti che anche un’ico- 
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na con wildcards può essere usata come 
icona di stile dal momento che le selezio- 
ni multiple prendono il posto delle wil- 
dcards selezionate. 

Ecco un esempio di problemi comuni e 
possibili soluzioni. 

"Ho centinaia di grafici sul mio Hard 
Disk e le ho organizzate in vari gruppi. 
Come posso fare dei semplici slideshow 
con ciascun gruppo separato?" 

Semplice: si crea un'icona di progetto 
per ciascun gruppo e si aggiunge un 
ToolType Startup, poi si aggiunge un To- 
OlType come PICSiGroupl/* AI,L 
SEC S 3 CENTER per scegliere queste 
opzioni, si fissa il tool di default a "C:M" 
e si clicca due volte (ovviamente, questo 
deve essere fatto per ciascun gruppo di 
icone). Non si diano alle icone gli stessi 
nomi di una directory, o Mostra andrà in 
confusione. 

"Voglio sempre vedere lo schermo ne- 
ro quando parto da WB“. 

Si metta nel Tooltype di Mostra Black- 
background. 

"Ho diversi grafici. Talvolta vorrei ve- 
derne alcuni a schermo completo e sen- 
za mouse, altre volte in schermo 128 x 
128. altre volte centrato". 

Si creino tre icone di stile. Ciascuna 
icona deve avere come primo ToolType 
Startup e le seguenti devono essere 
qualcosa come Nomouse. Width 128 
Height 128 e Center. Il tool di default 
deve essere C.M. Quando si desidera 
vedere in un certo modo, si clicca con 


Shift le icone del grafico e poi si fa un 
doppio click con Shift dell'icona dello stile 
voluto. 

"Voglio cliccare i miei grafici uno per 
volta, ciascuno con opzioni differenti e mi 
piacerebbe anche vederli in gruppi irre- 
golari. ciascuno con le sue opzioni" 

Occorre uno psicanalista, non Mostra! 

Scherzi a parte, il programma Mostra 
è realmente potente e consente la gestio- 
ne sofisticata di qualsiasi tipo di grafico. 
Ripetiamo che il manuale completo (in 
italiano) viene inviato solo a chi acquista 
il N. 11 di Amigazzetta. 

□ □ 

AmiqaMon VI .24 

E' stato scritto da Timo Rossi (Kellan- 
koski 44300 Konnevesi - Finland) 

E' un programma di monitor/debug- 
ger per l'Amiga molto sofisticato, ispirato 
a vari monitor del Commodore 64. E un 
programma rientrante (puro) che può es- 
sere reso residente col comando Resi- 
dent del Workbench VI. 3 o ARes della 
ARP. 

E previsto l'editing della linea usando i 
tasti sinistro e destro di spostamento del 
cursore, il backspace per cancellare il 
carattere prima del cursore e Del per 
cancellare il carattere sotto il cursore. Si 
possono poi usare i tasti cursore per 
recuperare le linee di comando prece- 
denti (il Monitor ricorda le ultime dieci). 


Shift CursorUp legge l'ultimo comando e 
lo esegue automaticamente senza pre- 
mere il Return. Il modo Assembler si può 
premere Ctrl- E per redigere le istruzioni 
assembly correntemente correntemente 
memorizzate a quell'indirizzo. 

Per sospendere l'output si può usare, 
in molti casi, la barra spaziatrice e ripete- 
re la pressione del tasto per riprendere. 
Per fermare permanentemente l'output si 
usa, come al solito. Ctrl C. 

Il monitor alloca attualmente 2K di spa- 
zio per il proprio stack. il rimanente è a 
disposizione per il programma che si sta 
"debuggando". Ovviamente la dimensio- 
ne dello stack usato è modificabile col 
comando Stack dello Shell. 

La base numerica di default è esade- 
cimale, ma la si può cambiare con il 
comando ba (l'argomento del comando 
è sempre in decimale). I prefissi usati per 
identificare le basi sono $ (esadecimale); 
@ (Ottale); % (Binario); (Decimale). 

I numeri possono anche essere im- 
messi come stringhe ascii, ad esempio 
"form" si può immettere come la stringa 
esadecimale "464f524d". 

L'attuale versione di AmigaMon con- 
sente di usare spesso espressioni nume- 
riche al posto di semplici numeri. Il co- 
mando di calcolo "?" consente di visua- 
lizzare direttamente valori come espres- 
sioni. Sono disponibili i seguenti operato- 
ri: /, %% (modulo), (shift sinistro), 

(shift destro). Si possono usare parentesi 
per raggruppare operazioni nelle espres- 
sioni. Il simbolo rappresenta anche 
l'indirizzo corrente, mentre (nomereg) 
rappresenta il valore del registro "nome- 
reg". T utti i calcoli sono eseguiti in artime- 
tica intera a 32 bit, senza controllo dell o- 
verflow. 

Oltre ai numeri ed alle funzioni si pos- 
sono usare anche le variabili in espres- 
sioni, purché precedentemente definite. 
Le variabili sono definite col comando 
Set e sono interi a 32 bit. I nomi di variabili 
possono contenere qualunque carattere 
alfanumerico, ma non iniziare con un nu- 
mero. Non viene tenuto conto delle diffe- 
renti dimensioni dei caratteri nei nomi. 

Le stringhe vengono usate in alcuni 
comandi e nelle direttive dell’assembla- 
tore. Sono serie di bytes rappresentate 
da caratteri ASCII tra singoli apici. 

Anche le istruzioni del programma 
AmigaMon (in italiano) vengono invia- 
te solo a chi acquista il N. 1 1 di Amigaz- 
zetta. 
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A. Replay 2, Genlock mk2; 
solo per Amiga 500 e 2000 


Ad un anno di distanza, parliamo nuovamente 
di un presidio ormai largamente acquisito 
tra gli utenti Amiga: la cartuccia Action Replay, 
ora divenuta Action Replay 2 (AR2) 


P arlare solo di "cartridge", per ciò che 
riguarda Action Replay (AR), è dive- 
nuto limitativo, in quanto ne è commer- 
cializzata anche una versione su scheda 
per Amiga 2000, alla quale tra l’altro si 
farà riferimento in queste pagine (si ve- 
dano le foto). 

La cartuccia per Amiga 500, infatti, 
esteriormente non si discosta per nulla 
dal primo modello, e d’altro canto, sotto 
l’aspetto delle prestazioni, scheda e car- 
tridge risultano assolutamente identi- 
che. Se si esclude la descrizione har- 
dware, quanto vedremo varrà dunque 
per entrambi i modelli. 

La differenza immediatamente palpa- 
bile tra la "vecchia" Action Replay e la 
nuova versione, che poi è anche la diffe- 


renza più netta, consiste nell'assenza di 
software su floppy a corredo. Il motivo è 
presto detto: il software è stato trasferito 
su Rom, per cui le funzioni per affrancare 
i file prodotti con Action Replay dalla 
presenza fisica della cartuccia, ora non 
necessitano più di alcun intervento sup- 
plementare. Ma prima di approfondire 
ulteriormente questo aspetto, diamo una 
breve occhiata all’hardware dedicato ad 
Amiga 2000. 

Si tratta, come si può notare dalle foto, 
di una scheda per così dire "corta", da 
inserire nello slot a 86 vie posto a ridosso 
dei drive interni del computer. I controlli 
sono affidati ad un dispositivo connesso 
alla scheda tramite un cavetto piatto, che 
deve giungere all’esterno del cabinet at- 


traverso una delle piastre posteriori rimo- 
vibili. L'unità, di ingombro minimo, dispo- 
ne del tradizionale miniswitch a levetta 
per attivare o escludere lo Slow Motion, 
regolabile poi tramite una manopolina 
adiacente. Per chi non avesse avuto pre- 
cedenti "incontri ravvicinati" con Action 
Replay, si ricorda che lo Slow Motion 
consente di rallentare in toto l’attività di 
Amiga, il che può risultare utile soprattut- 
to ai "gamofili" ad oltranza, con predile- 
zione per i patiti di arcade: meno frenesia 
sul joystick (o mouse), maggiore facilità 
di riuscita... ed esaurimenti nervosi evita- 
ti. 

In cima al "magico" scatolino, troviamo 
poi il rosso pulsante di Freeze, vera porta 
d'ingresso a tutte le straordinarie capaci- 
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tà di AR2. C’è da dire che la presenza 
della scheda risulta del tutto trasparente 
al sistema, e ci si accorge della sua pre- 
senza solo ad ogni reset, quando viene 
mostrata per un paio di secondi una 
schermata-logo graficamente più curata 
che nella prima versione. Ma non è certo 
questo il motivo che può giustificare l'ac- 
quisto di Action Replay 2. 

Le prestazioni non differiscono molto 
da quanto già descritto sul numero 77 
della rivista, anche se in molti particolari 
l'evoluzione si fa sentire. Dopo il Freeze, 
che, come ovvio, può essere imposto 
mentre sta girando un qualsiasi program- 
ma o game, si entra in un ambiente esclu- 
sivo, dotato di una marea di suoi comandi 
il cui sunto è visualizzabile premendo il 
tasto Help. L’ambiente, tra l’altro, è am- 
piamente personalizzabile grazie ad una 
schermata di "preferences" accessibile 
attraverso la pressione del tasto funzione 
F3. Adoperando il mouse, si può così 
variare il rapporto cromatico sfon- 
do/primo piano, selezionare quali perife- 
riche (floppy driver) gestire, scegliere il 
tipo di memoria da sfruttare (solo chip 
oppure anche fast), nonché attivare o 
meno un test sulla memoria per intercet- 
tare eventuali interferenze di virus. 

Questo controllo, se reso operativo, 
viene effettuato ogni volta che si adopera 
il Freeze. Anche in queste preferences, 
inoltre, è riservato un occhio di riguardo 
per chi sfrutta Amiga soprattutto per i suoi 
videogames: una griglia di riquadri per- 
mette infatti di abilitare l’autofire, con la 
possibilità di scegliere separatamente 
per 2 giocatori l’intensità di fuoco. 

In generale, si può suddividere il raggio 
d’azione di Action Replay, o meglio dei 
suoi comandi, in due settori d’influenza. 


Uno rivolto a chi intende usare la scheda 
(o cartridge) per hackerare (eufemi- 
smo...) programmi altrimenti incopia- 
bili. ed uno per smanettoni più evoluti, 
che sappiano muoversi agilmente nei 
meandri di Amiga, e che possono trovare 
in AR2 uno strumento insostituibile per 
ricavare informazioni preziose sul siste- 
ma, controllare il funzionamento di soft- 
ware normalmente non... scrutabile, o 
ancora operare modifiche "al volo" men- 
tre un programma è in esecuzione. 

Per la goduria dei primi, è possibile 
"grabbare” con estrema facilità scher- 
mate Iff eventualmente presenti in me- 
moria, o anche brani musicali, suoni, 
eccetera. Tutto ciò che occorre fare, è 
impartire un comando P (per le scherma- 
te) oppure Scan e Tracker (per i suoni). 
In entrambi i casi la ricerca è automatica, 
con la possibilità di salvare il risultato 
grazie ad appositi comandi come SP (sa- 
ve picture) o semplicemente agendo su 
F5 per i . suoni. Inutile aggiungere che, in 
entrambi i casi ma soprattutto nei con- 
fronti della grafica, sono possibili nume- 
rosi rimaneggiamenti: a carico delle di- 
mensioni deH’immagine, della loro tona- 
lità e anche colorazione, mentre una vol- 
ta adoperato Tracker per il sonoro, i tasti 
funzione consentono di approfondire la 
conoscenza con svariati standard di co- 
difica musicale. 

Per la stessa categoria di utenza, la 
parte del leone è comunque svolta dal 
Freezer vero e proprio. In pratica, una 
volta interrotta l’esecuzione di un pro- 
gramma (vogliamo dire game?) premen- 
do il tastino rosso di Action Replay 2, si 
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può salvare lo stesso su un normale flop- 
py in formato Amiga digitando semplice- 
mente SA seguito dal nome che intendia- 
mo assegnargli. Tutto qua. In effetti, così 
facendo, lo stesso programma può poi 
essere ricaricato in memoria tramite il 
comando LA, il che presuppone perciò la 
presenza di AR2. Se si volese rendere 
autonoma l'esecuzione, basterà esegui- 
re dopo il salvataggio un altro comando: 
Sloader. Questo creerà nello stesso 
floppy un piccolo file di nome Aload, che 
potrà essere invocato poi anche in as- 
senza della scheda/cartuccia con la sin- 
tassi Aioad Nomef i le. Per chi non vo- 
lesse sostenere l’ardua fatica di accede- 
re al dos. è disponibile poi il comando 
Instali, che renderà direttamente boota- 
bile il programma in questione, adope- 
rando il floppy per lo start di Amiga. Più 
di così.... 

Se la procedura appena descritta è 
una novità legata alla nuova versione di 
Action Replay, praticamente identiche 
sono rimaste le opzioni cosiddette di 
Trainer, ampiamente descritte sul nume- 
ro 77. Giusto come accenno, basti ricor- 
dare che il Trainer consiste in una serie 
di comandi che permettono di fornire "vi- 
te” Infinite ad un gioco, automatizzando 
quanto più possibile la ricerca in memoria 
delle locazioni in cui è memorizzato que- 
sto dato. Il tutto, come ovvio, accessibile 
anche per chi fosse ancora convinto che 
il linguaggio macchina corrisponda... a 
due clacson che dialogano tra loro. 

Per chi invece ha da tempo abbando- 
nato simili concezioni animiste (eh eh 
eh), Action Replay 2 mette a disposizio- 
ne un set di istruzioni davvero notevole, 
che vanno da una completa gestione dei 
drive e del bootblock dei dischi, ad una 
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serie di informazioni supplementari di- 
sponibili sullo stato del sistema: molto più 
complete di quanto disponibile in am- 
biente Shell, e soprattutto sfruttabili in 
una qualunque fase di esecuzione del 
programma, come dire che si dispone di 
un debugger insuperabile. Per fare un 
esempio, si può richiedere la lista degli 
interrupt attivi (comando Interrupts), gli 
indirizzi reali delle librerie aperte, o più 
semplicemente l'ammontare della me- 
moria libera. 

Per non dire di un più tradizionale, ma 
super accessoriato, Monitor di linguag- 
gio macchina con il quale è consentita 
ogni tradizionale operazione di assem- 
blaggio/disassemblaggio, comparazioni 
di blocchi di memoria e loro eventuale 
Save, ricerca e trasferimento, e chi più ne 
ha più ne metta. Non manca infine un 
Disk Editor di tutto rispetto, uno Sprite 
Editor altrettanto succulento, e qualche 
altra feature particolare: la possibilità di 
codificare (e decrittare) blocchi di memo- 
ria per renderli illeggibili ad occhi indi- 
screti, o addirittura di compattare/scom- 
pattare il contenuto di sezioni di ram. 

Principiante o super esperto che sia, 
l’acquirente di Action Replay 2 non avrà 
insomma di che lamentarsi: ce n'è pro- 
prio per tutti i gusti... 

Videoqenlock MK2+ 

D i Genlock abbiamo cominciato ad 
occuparcene nell'ultimo appunta- 
mento. Il lettore attento saprà dunque 
ormai di cosa si tratta: un apparecchio 
in grado di miscelare il segnale video 
di Amiga a quello di una fonte esterna, 
tipicamente un videoregistratore. 

Dopo un primo approccio rappresenta- 
to dal Minigen, eccoci ora a esaminare 
brevemente un prodotto dalle prestazioni 
analoghe, ma con qualcosa in più. e dalle 
origini italiane: il Videogenlock Mk2 plus, 
prodotto dalla Ecr Elettronica. 

Si tratta di un apparecchio anch'esso 
appartenente ad una fascia intermedia di 
prezzo (attorno alle 400 mila), se si con- 
sidera che hardware del genere possono 
raggiungere costi che superano abbon- 
dantemente il milione, ma di elevata qua- 
lità, soprattutto in rapporto al fatto che 
gestisce anch'esso un segnale video- 
composito. 

L’hardware è costituito da un cabinet 
da affiancare al computer, fornito di un 
apposito cavo di collegamento Rgb. Sul 


retro del contenitore, infatti, sono presen- 
ti due connettori a vaschetta a 23 poli, 
uno femmina e uno maschio. Al primo 
andrà connesso il cavo video provenien- 
te dal computer (adoperando quello a 
corredo), il secondo andrà invece colle- 
gato al monitor adoperando il cavo nor- 
malmente usato con il computer, per con- 
sentire la normale visualizzazione di 
Amiga. Un pulsante On/off posto tra i 
connettori, fa sì che a genlock spento il 
segnale di Amiga giunga come sempre 
al monitor, come se l’apparecchio sup- 
plementare non fosse presente. Agendo 
sull’interrutore, ovvero abbassando il 
pulsante, si attiva il genlock, e diventano 
così operativi gli altri due connettori (di 
tipo Rea) contrassegnati dalle sigle Out 
ed In, riservati appunto a ingresso ed 
uscita del segnale in videocomposito. 

In pratica, anche senza adoperare il 
segnale di Input, si può già sfruttare il 
connettore di Output collegandolo ad un 
videotape tramite un cavo dotato di 
Scart, facilmente reperibile, e in simile 
configurazione registrare qualunque atti- 
vità del computer: animazioni, scherma- 
te. eccetera. 

Ma non è certo questo lo sfruttamento 
ideale del genlock, anche se non da igno- 
rare. Collegando infatti un videotape al- 
l’input (adoperando lo stesso tipo di cavo 
con Scart da una parte e spinotti Rea 
dall’altra), si può accedere alle reali pre- 
stazioni di Mk2+, gestibili attraverso un 
selettore e una manopola presenti sul 
frontalino dell’apparecchio. 

La levetta di selezione dispone di tre 
posizioni, ognuna delle quali permette tre 
diversi tipi di passaggio del segnale vi- 
deo. Ponendola su Video (al centro), al 
connettore Out in videocomposito giun- 
gerà il solo segnale 
proveniente dal vi- 
deotape, mentre 
spostandola su 
Overlay (verso sini- 
stra) si avrà la so- 
vrapposizione tota- 
le del segnale del 
computer su quello 
video, che traspari- 
rà attraverso lo 
sfondo. 

Per apprezzare 
visivamente queste 
caratteristiche, è 
chiaro che occorre- 
rà comunque colle- 


gare alla presa Out in videocomposito un 
altro videotape sul quale riversare l’effet- 
to dei nostri esperimenti (a sua volta col- 
legato ad un monitor), oppure effettuan- 
do la connessione con l’ingresso video- 
composito di un monitor (magari lo stes- 
so 1084 di Amiga, switchando col pul- 
santino frontale al modo videocomposi- 
to), in quest’ultimo caso per una mera 
visualizzazione del funzionamento di 
Mk2+. 

Ma non si è ancora detto della terza 
posizione del selettore frontale, Super 
Impose, che in effetti è la più rara in 
apparecchi di questa fascia di prezzo. 
Questa modalità consente infatti di so- 
vrapporre il segnale del computer a quel- 
lo del video in rapporto alla posizione 
della manopola: ruotandola verso destra 
si aumenterà il livello di sovrapposizione, 
potendolo così tanto dosare, quanto in- 
crementare o decrementare gradual- 
mente fino ad ottenere del veri e propri 
effetti di dissolvenza del segnale. No- 
tevole. 

Come ovvio, i migliori risultati si otten- 
gono ricorrendo su Amiga a programmi 
di videotitolazione, mentre la qualità del 
risultato, mediamente molto buona, ri- 
sente comunque della procedura di river- 
samento su un secondo videotape. 

D’altro canto, come già detto, è già 
tanto trovarsi al cospetto di simili presta- 
zioni ad un prezzo così contenuto, e so- 
prattutto ad una cosi buona resa del se- 
gnale videocomposito, che nell’evoluzio- 
ne Mk2+ del Videgenlock ha subito una 
impennata qualitativa tale da poterlo con- 
siderare senza dubbio il migliore della 
sua fascia commerciale di appartenenza. 

Cosa aggiungere, se non un... promos- 
so a pieni voti? 
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di Domenico Pavone 

Musica e Microdeal, 
il ciclo si chiude 


Due soluzioni 
economiche, 
per accostarsi 
all’editing 
musicale, 
propopste della 
nota sw house 


N el corso degli ultimi appuntamenti ci 
si è più volte occupati di hardware e 
software musicale, inquadrabile in un 
settore che potremmo definire di medio 
costo e di prestazioni semiprofessionali. 

Per non andare troppo lontano, solo 
due numeri fa si sono esaminate le note- 
voli caratteristiche di Amas, il sampler 
(digitalizzatore) stereo che può conside- 
rarsi uno dei prodotti di punta del settore, 
commercializzato dalla stessa Microde- 
al che vedremo ancora in azione in que- 
ste pagine. Pacchetti del genere, pur non 
raggiungendo costi astronomici, posso- 
no comunque creare qualche problema 
per un hobbista non troppo esigente, o 
che comunque non intenda sborsare 
somme oscillanti tra le 200 e le 400 mila 
lire per un uso che, tutto sommato, pre- 
vede saltuario. 


Con qualche ovvia limitazione, ma 
senza scadere di qualità, ecco allora due 
prodotti di tutto rispetto volti a coprire 
questa fascia di utenza, accomunati da 
un prezzo che, senza mezzi termini, può 
considerarsi irrisorio, soprattutto in rap- 
porto alle prestazioni: attorno ai 40 miseri 
dollari. Fate un po’ voi il calcolo con il 
cambio corrente... 

Senza perdere di vista questa realtà, 
diamo dunque un’occhiata ad un ennesi- 
mo pacchetto soft/hardware appartenen- 
te alla classe dei digitalizzatori audio, 
Master Sound, e a un Sequencer / Sin- 
thetiserdi facile uso: il programma Quar- 
tet. 

Entrambi, come già detto, della Micro- 
deal. ed entrambi imbattibili nel rapporto 
prezzo/qualità. 


Master Sound 

M olto simile come impostazione ge- 
nerale al più quotato (e costoso) 
Amas, Master Sound differisce dal primo 
soprattutto per una caratteristica: non è 
in grado di gestire contemporaneamente 
i due canali della stereofonia. In altre 
parole l'input sonoro, anche se prove- 
niente da una fonte stereo, può essere 
trattato solo come unico segnale mono- 
fonico. globale o singolo canale che sia. 

Come ovvio, il problema non si pone 
se si intende adoperarlo per compiona- 
menti di suoni da "passare" poi ad un 
editor/sequencer, ma in effetti c'è da dire 
che, anche se può sembrare un grosso 
limite, questo è poi facilmente aggirabile. 
Nulla vieta, infatti, che vengano "registra- 
ti" e salvati su disco dalla fonte sonora i 
due singoli canali stereo, poi facilmente 
assemblagli in separata sede da pro- 
grammi come Audiomaster III (vedi nu- 
mero scorso della rivista), che tra l'altro 
risulta totalmente compatibile con il 
Master Sound. 

La premessa però non tragga in ingan- 
no: la qualità del campionamento, come 
pure le possibilità di intervento su quanto 
digitalizzato, sono di livello decisamente 
alto, tanto da stupire per il basso costo 
con il quale sono realizzate. 

L’hardware del package è costituito da 
uno scatolotto di minimo ingombro che 
va inserito direttamente nella porta pa- 
rallela di Amiga, grazie ad un connettore 
che sporge da una delle sue estremità. 
All'altra è presente il connettore per l'in- 
put, che prevede l'uso di un comune mi- 
ni-jack come quello a corredo di quasi 
tutte le cuffie da Walkman. Anche se non 
si disponesse di un cavetto adatto, la 
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importante prestarvi una certa attenzio- 
ne. Agendo su due barre verticali presen- 
ti all’interno della finestra, è possibile in- 
fatti selezionare parte di quanto campio- 
nato, o anche decidere a priori le dimen- 
sioni del campionamento: al loro movi- 
mento (tramite il mouse) corrisponderà 
una modifica dei valori espressi in termini 
di byte, ed è importante non tendere a 
strafare. Disponendo di sufficiente me- 
moria. Master Sound può digitalizzare 
(per esempio) anche due mega di sono- 
ro... ma poi? A meno di disporre di hard 
disk, e un mare di Ram, salvare un simile 
file sarebbe decisamente inutile. 

Nulla vieta, comunque, che si utilizzi 
tutta la capacità di registrazione del pro- 
gramma, per poi selezionare (magari do- 
po qualche ritocco) solo una parte del 
brano: le solite due barre verticali delimi- 
tano infatti anche quanto verrà salvato su 
periferica. Molto comodo, tra l'altro, uno 
Zoom a due posizioni (tasti a forma di 
occhiale e di lente da ingrandimento) che 
consente di espandere la visualizzazio- 
ne di singole porzioni del sonoro, adope- 
rando ancora le barre verticali per delimi- 
tare la sezione da trattare. Se le dimen- 
sioni, dopo lo zoom, eccedono i limiti 
della finestra visibile, sono disponibili due 
gadget di scorrimento laterale per visua- 
lizzare la sezione che più interessa. 

Oltre al grosso tasto di Play, a ridosso 
della finestra principale sono anche di- 
sposti i "pulsanti" per il Reverse (ascolto 
invertito del brano, senza però modificar- 
lo), ed il tasto di Loop, che fa riprendere 


reperibilità di un connettore di questo tipo 
non rappresenterebbe certo un proble- 
ma. 

Il software di gestione, contenuto in un 
unico floppy, ricorda molto quello di 
Amas, al punto di condividerne la grafica 
simbolica associata alle numerose fun- 
zioni accessibili. Una volta lanciato il pro- 
gramma, si accede ad una schermata 
molto chiara e lineare, con tutte le opzioni 
gestibili via mouse. In alto, l’immancabile 
finestra riservata alla visualizzazione oel 
suono in forma d'onda; in basso, una 
serie di "pulsanti” affiancati da un vasto 
riquadro che funziona da oscilloscopio. 

Effettuati i collegamenti ed attivata la 
fonte sonora (Cd, Tape, Hi-fi, eccetera), 
Master Sound consente una regolazione 
ottimale del volume di input grazie a tre 
strumenti di misurazione: il già citato 
oscilloscopio, la simulazione software di 
un led a barra orizzontale con colorazio- 
ne in rosso dei picchi in distorsione, ed 
un analizzatore di spettro che mostra 
in diretta le varie bande di frequenza. In 
pratica, basterà attivare una delle scelte 
appena accennate, e preascoltare il bra- 
no musicale (o il suono) agendo col mou- 
se sull'apposito gadget (il primo in alto a 
sinistra della serie di controlli). L'ascolto 
avverrà come ovvio attraverso gli alto- 
parlanti del monitor, ed è anche possibile 
selezionare il Playback solo su uno dei 
due canali o su entrambi. Lo stesso re- 
quester di scelta consente inoltre di disat- 
tivare il noto filtro taglia frequenze di Ami- 
ga, e di regolare il volume di ascolto, che 


peraltro è opportuno lasciare sempre al 
massimo livello. 

La fase di "registrazione” vera e pro- 
pria, una volta effettuate queste neces- 
sarie preregolazioni, diventa poi una 
sciocchezza: è sufficiente attivare la fon- 
te sonora, e clickare sul tasto Ree. La 
digitalizzazione continuerà sino a quan- 
do non si agirà nuovamente sul pulsante 
sinistro del mouse, o non sarà esaurita la 
capienza massima della finestra che vi- 
sualizza la cosidetta Waveform (forma 
d’onda). La dimensione in byte che assu- 
merà il corrispondente file è visualizzata 
subito sotto la finestra di lavoro, ed è 
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l’ascolto di quanto digitalizzato dopo la 
sua conclusione. Anche queste opzioni, 
come le altre, agiscono su quanto delimi- 
tato dalle barre verticali nella finestra 
principale. 

Il pannello di controllo comprende poi 
una sezione orizzontale dedicata all’in- 
put/output (Save, Load, Ree) e un tasto 
Iff che consente di scegliere il formato nel 
quale andrà memorizzato il campiona- 
mento: il tradizionale Iff, Raw (dati binari 
inseribili in propri programmi), o come 
Instrument da adoperare eventualmen- 
te con altri programmi di elaborazione 
musicale. 

Le ultime due serie di controlli sono poi 
dedicate all’editing, che consente alcune 
manipolazioni abbastanza interessanti 
come il Fadein e Fadeout, ovvero l'inse- 
rimento di un effetto di "dissolvenza'' so- 
nora ad inizio (Fadein) e/o fine (fadeout) 
del brano (o suono) delimitato dalle solite 
barre verticali. Non mancano le tradizio- 
nali funzioni di Cut e Paste, simili a quelle 
di un comune editor di testi, che consen- 
tono di delimitare, spostare, cancellare 
oppure copiare altrove sezioni della Wa- 
veform visualizzata. 

L’editing, pur disponendo dele funzioni 
di base, non è molto sofisticato, ma, co- 
me già detto, chi volesse tentare elabo- 
razioni più complesse può sempre ricor- 
rere ad altro software come l’Audioma- 
ster III. 

Da citare infine la capacità di caricare 
in memoria più file di campionamento, 
che possono essere poi eseguiti uno do- 
po l'altro grazie ad un file che memorizza 
solo la sequenza, non l'insieme dei brani 
(o suoni). 

Per un costo paragonabile, se non in- 
feriore, a quello di un videogame, in de- 
finitiva non si può che apprezzare la qua- 
lità di Master Sound, e la lungimiranza 
della Microdeal, che lo ha opportuna- 
mente affiancato al "cugino" Amas. 

□ □ 

Quartet 

C on questo programma ci si trova al 
cospetto di un più tradizionale soft- 
ware di composizione ed esecuzione 
musicale... anche se poi tanto tradiziona- 
le non è. Volendo azzardare una defini- 
zione tecnica non troppo pretenziosa, di- 
remo che Quartet trasforma Amiga in 


; 



un sintetizzatore polifonico con re- 
corder a 4 tracce. Il che significa, molto 
semplicemente, che sarà in grado di ri- 
produrre in contemporanea il suono di 4 
strumenti campionati (da cui il nome 
Quartet), e naturalmente di consentire 
l’editing di uno spartito musicale, seppur 
con modalità particolari, come vedremo 
tra breve. L’input, per di più, può essere 
immesso anche tramite Midi, ovvero da 
tastiera o altro strumento dotato di tale 
interfaccia. 

Come i musicofili più evoluti avranno 
già arguito, un software di queste presta- 
zioni non può certo essere considerato 



un ausilio professionale, quanto piuttosto 
un "entry level" per chi intendesse acco- 
starsi all’affascinante mondo della musi- 
ca digitale, o anche, più banalmente, ela- 
borare qualche brano da inserire in propri 
demo o startup di dischi. Valgono anche 
in questo caso le considerazioni fatte a 
proposito di Master Sound, ovvero l'as- 
soluta competitività nel rapporto prez- 
zo/prestazioni, cui va aggiunta la (relati- 
va) semplicità di utilizzo, e il fatto che 
Quartet "giri" senza problemi anche su 
Amiga 500 in configurazione base. 

Un brano musicale, come del resto 
avviene un po' in tutti i programmi del 
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genere, viene gestito da Quartet suddivi- 
so in due componenti fondamentali: la 
musica in senso stretto, intesa come 
sequanza di note, e il tipo di suono (lo 
strumento) con il quale eseguirla. Ai due 
aspetti, da un punto di vista pratico, cor- 
risponderanno fisicamente due tipi di 
file, uno contente la sequenza musicale, 
ed uno il set di strumenti ad essa asso- 
ciato. Un'anticipazione: adoperando due 
programmi inclusi nel package, questi 
files possono essere fatti eseguire indi- 
pendentemente da Quartet. limitatamen- 
te al sonoro oppure mentre viene visua- 
lizzata sullo schermo una immagine in 
formato Iff. Ovvia l’utilità di questi pro- 
grammini. che consentono di inserire fa- 
cilmente gli elaborati di Quartet in proprie 
realizzazioni, anche sofisticate. Per la 
cronaca, sono anche inclusi esempi di 
startup - sequence per ottenere "intro" 
musicali in propri dischetti (adatti a utenti 
alle prime armi), nonché sorgenti in as- 
sembler per chi sfrutta questo linguaggio. 

Ma procediamo con ordine, e vediamo 
più da vicino come opera il programma. 

Gli ambienti di lavoro sono costituiti da 
due schermate. Quella cui si accede im- 
mediatamente dopo il lancio del pro- 
gramma. è rappresentata da un reque- 
ster di input/output piuttosto particolare, 
circondato da una fitta serie di gadget 
attivabili col mouse, mentre lo sfondo si 
esibisce in variazioni cromatiche can- 
gianti. Clickando su uno dei gadget-pul- 
santi daH’omonima intestazione, si acce- 
de al Music Editor, il secondo ambiente 


di lavoro, caratterizzato dalla presenza di 
4 pentagrammi (le 4 tracce disponibili) e 
da un'altra serie di gadget posti in cima 
allo schermo. Una sessione di lavoro, in 
pratica, dovrà sempre cominciare con il 
caricamento da floppy degli "strumenti", 
costituiti da suoni campionati con un di- 
gitalizzatore, attraverso l'opzione Load 
Sample oppure Load Set. Con la prima, 
è possibile caricare singoli sample, ovve- 
ro singoli file ottenuti da un digitalizzato- 
re, con la seconda un intero Set di 16 
campionamenti, numero massimo di 
sample gestibili da Quartet. I dischi a 
corredo del package contengono già nu- 


merosi file di entrambi i tipi, ma, come 
ovvio, per una massima personalizzazio- 
ne è opportuno disporre di propri campio- 
namenti. Quartet accetta per default 
sample ottenuti da Master Sound e 
Amas. ma clickando sui gadget Sample 
Redo è possibile scegliere altre frequen- 
ze di campionamento, che appaiono in 
evidenza all'interno del requester. Clic- 
kando su una delle scelte possibili, e poi 
sul pulsante Proceed. è assicurata la 
compatibilità con qualunque altro digita- 
lizzatore audio. 

In cima al requester, sono presenti due 
serie di pulsantini. entrambe numerate 
da 1 a 4, quella superiore descritta come 
Block, quella inferiore come Sample. 
Con un sistema che inizialmente può 
sembrare complesso, è attraverso questi 
pulsanti che vengono gestiti ed assegna- 
ti i 16 suoni. Ogni pulsante della riga 
superiore costituisce in pratica un "bloc- 
co", cui sono associati 4 differenti suoni 
preascoltabili agendo col mouse sui 4 
gadget della riga inferiore o sfruttando il 
tastierino numerico laterale di Amiga: l'in- 
sieme. cosituisce il Set di strumenti. Per 
essere più chiari, si pensi come esempio 
al Block 4 come riservato alle percussio- 
ni: i 4 sample della riga inferiore potreb- 
bero essere costituiti dal suono di 4 diffe- 
renti tamburi (o piatti, o qualunque altro 
suono del genere si desideri). 

In fase di caricamento dei sample, non 
sorge alcun problema se si dispone già 
di un set precostituito, altrimenti (per sin- 
goli campionamenti) occorrerà selezio- 
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nare un pulsante rappresentante un bloc- 
co, quindi uno che specifichi il sample, ed 
infine agire su Load Samp per caricarlo 
in memoria. L'insieme dei suoni, rappre- 
sentati dal nome del file corrispondente, 
può inoltre essere visualizzato all'Interno 
del requester adoperando il gadget Set e 
facendo scrollare il testo con le frecce 
disposte lateralmente alla finestra di out- 
put. Lo stesso gadget, se selezionato 
con il pulsante destro del mouse, con- 
sente invece di determinare le dimensio- 
ni in byte dei sample, per i quali è dispo- 
nibile un totale di 140 Kbyte. Purché si 
faccia rientrare la dimensione totale dei 
16 campionamenti in questo range, si 
può modificare liberamente lo spazio ri- 
servato ad ognuno di essi, in caso con- 
trario verranno troncati per default a 
1 0000 byte quelli dei blocchi da 1 a 3. ed 
a 5000 byte i suoni del quarto blocco. 

Il sistema prima visto di descrizione dei 
suoni assume rilevanza quando si passa 
allo schermo di editing (al Music Editor, 
per intenderci). 

Qui, tra gli altri, sono presentigli stessi 
8 tastini numerati in due serie da 1 a 4. 
Se si prova a clickare all'Interno del pen- 
tagramma. apparirà un numeretto di 
due cifre, e non una nota, come ci si 
potrebbe aspettare. Scopo dichiarato di 
Quartet, infatti, è quello di consentirne 
l'uso anche a chi dispone solo di minime 
cognizioni musicali. In pratica: la prima 
cifra del numero rappresenta il "blocco" 
di cui prima si parlava, e la seconda il 
sample ad esso associato. Più banal- 
mente, selezionando i pulsanti che rap- 
presentano il sample. se ne ottiene an- 
che l’ascolto, ed i tastini rimangono illu- 
minati. Il numero che appare sul penta- 
gramma corrisponderà a quei tastini illu- 



minati, consentendo di associare uno dei 
16 campionamenti a ciascuna nota, che 
verrà quindi eseguita con quel suono. E' 
questo l'aspetto forse più complesso di 
Quartet, ma in realtà più difficile da de- 
scrivere che da mettere in pratica. 

Una volta organizzati i 1 6 suoni (non è 
comunque indispensabile adoperarli o 
caricarli tutti), questi possono singolar- 
mente (a seconda di quale è selezionato 
al momento) subire delle modifiche ele- 
mentari grazie ad un Sound Editor ac- 
cessibile sempre dal Music Editor agen- 
do sul gadget caratterizzato da un'onda 
sonora stilizzata. Dalla nuova finestra si 
può ascoltare il sample. metterlo in loop, 
nonché limitarlo ad una sua sezione o 
asportare delle parti, il tutto mentre viene 
visualizzata la forma d'onda del campio- 
namento, e con la possibilità di adopera- 
re uno zoom sullo stile di quello descritto 
nel Master Sound. 

Tornando in ambiente Music Editor, 
ognuno dei 4 pentagrammi può essere 
"spento" agendo col pulsante destro del 
mouse mentre il puntatore si trova in 
testa alla traccia (all'estrema sinistra), 
restringendo così l’ascolto alle sole trac- 
ce desiderate. Per il Play è disponibile un 
tasto con la classica grafica simbolica dei 


registratori (singola freccia verso destra), 
affiancato dagli altrettanto tradizionali ta- 
sti di scorrimento (fine oppure a pagina) 
del testo musicale. 

A questi, si aggiunge il tasto Ree. che 
consente una vera e propria registrazio- 
ne di brani suonati dall'utente: adoperan- 
do la tastiera del computer, oppure, mol- 
to più proficuamente, uno strumento do- 
tato di output Midi collegato ad Amiga 
attraverso la porta seriale. Dopo aver 
premuto il Ree. si può poi scegliere su 
quale traccia dirigere l'input clickandovi 
sopra, e naturalmente il tipo di sample da 
adoperare, agendo sui soliti 8 tastini nu- 
merati che rappresentano il Set disponi- 
bile. 

Come in ogni editor musicale che si 
rispetti, sono inoltre disponibili alcuni 
automatismi facilmente implementabili 
con un semplice click sugli opportuni 
gadget: innalzamento o abbassamento 
di un semitono di tutto il brano (o delle 
sole tracce attive), modifica del tempo di 
esecuzione, agganciamento di note alle 
precedenti e scelta dell’ottava, nonché le 
tradizionali funzioni di Cut e Copy, che 
possono riguardare sezioni dello stesso 
pentagramma o appartenenti a differenti 
tracce. 

Se si esclude la particolare gestione 
dei sample, cui peraltro ci si abitua molto 
in fretta, il software risulta in definitiva 
molto semplice ed intuitivo da usare, e 
quindi particolarmente adatto per un neo- 
fita non solo di Amiga, ma anche del 
settore musicale in genere. I risultati ot- 
tenibili. di contro, possono essere di tutta 
rilevanza, tanto da far guardare con as- 
soluto rispetto a un "supereconomico" 
come Quartet. 
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di Domenico Pavone 


Font Maker per Amiga, 
divertitevi con i caratteri 


Un professionale editor di caratteri 
dall’italianissima Cloanto 


C he cosa sia un Font Maker, chiunque 
abbia un attimo approfondito l’uso di 
Amiga non può certo ignorarlo, non fos- 
s’altro per la frequenza e facilità con cui 
questo computer ci ha abituati a trattare 
con caratteri di diversa impostazione gra- 
fica. 

Ebbene, qualunque supposizione sul 
tipo di programma che ci si può aspettare 
non potrà che risultare limitativa, soprat- 
tutto se ci si è fatti un’idea basandosi sui 
numerosi editor di font presenti nel setto- 
re del pubblico dominio. Non perché que- 
sti ultimi siano da disprezzare, per carità, 
ma Personal Font Maker (per gli amici 
Pfm) è davvero un’altra cosa, unico forse 
nel suo genere a potersi fregiare senza 
mezzi termini dell’aggettivo "professio- 
nale". 

Ciò detto, va però precisato che entro 
certi limiti il programa può anche essere 
usato per la semplice creazione (o modi- 


fica) di un font da relegare tranquillamen- 
te nella sua omonima directory di siste- 
ma, ed essere utilizzato solo a video o 
nell’ambito di tools grafici. La potenza di 
Pfm consente però molto di più, soprat- 
tutto in rapporto all'uso della stampan- 
te. Sua caratteristica peculiare, infatti, è 
quella di consentire il trasferimento alle 
stampanti, o meglio alla loro memoria 
Ram (download buffer), di completi font 
di caratteri, con vantaggi non solo estetici 
o legati ad una riproduzione personaliz- 
zata, ma anche rispetto alla velocità. 

Caratteri particolari, come sicuramen- 
te noto, possono infatti essere inclusi in 
un documento su carta solo se la stampa 
viene abilitata in modo grafico, con note- 
vole dispendio di tempo e, a meno che 
non si disponga di hardware pregiato 
(leggi: laser), con risultati di non elevata 
qualità. O almeno, non paragonabile a 
quella normalmente ottenibile in modo 


testo (si parla di documenti, non certo di 
immagini). 

Simili prestazioni, per quanto in parte 
automatizzate, richiedono comunque un 
discreto approfondimento dell’argomen- 
to, del resto reso possibile da un manuale 
di circa 300 pagine(!) che si sofferma 
ampiamente sull’aspetto didattico. Non 
potendo certo sostituirci ad esso, scorria- 
mo dunque velocemente, e con obbliga- 
ta superficialità, le notevoli caratteristi- 
che di Professional Font Maker. 

□ □ 

L’editing 

D opo il lancio del programma, lo 
schermo si presenta con una tradi- 
zionale (o almeno in apparenza tale) gri- 
glia di editing, con alla sinistra una serie 
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di controlli che la Cloanto definisce "bot- 
toni". Quando il pointer si trova all’interno 
della griglia, assumendo in questo caso 
un aspetto a croce, si può disegnare un 
"punto" con il pulsante sinistro del mou- 
se, o cancellarlo con il pulsante destro. Il 
disegno può però essere tracciato anche 
in modalità brush ("pennello"), similmen- 
te a quanto implementato da tutti i tools 
grafici. La modalità si seleziona agendo 
su uno dei gadget (licenza esterofila per 
il solito "bottone") sulla sinistra sul quale 
è riprodotta una ormai standardizzata li- 
nea curva, mentre al suo fianco è dispo- 
nibile un altro bottone che abilita la deli- 
mitazione di un’area della griglia, che 
diventerà il pennello (o brush che dir si 
voglia). A carico del brush, sono possibili 
svariate operazioni attivabili dal menu 
(guarda caso) di nome Pennello, pre- 
sente nella title bar dello schermo: lettu- 
ra e salvataggio da/su periferica dell’im- 
magine del brush, sua rotazione, ridi- 
mensionamento, modifica dell'Impu- 
gnatura, come anche modifica in rever- 
se o in corsivo dello stesso. 

Sempre adoperando i controlli laterali 
con grafica a bottone, l’editor consente 
poi di rimpicciolire o ingrandire in toto 
la griglia e l'immagine del carattere in 
essa contenuta. Modifica, questa, che 
interesserà l'intero font, non solo il sin- 
golo carattere, ma che non influirà sui 
reali parametri associati al font: in altre 
parole, una feature utile soprattutto per 
rendere più confortevole l’editing. 

Altri automatismi resi possibili dallo 
stesso tipo di controlli, riguardano l’inver- 
sione dell’immagine in senso verticale 
oppure orizzontale, nonché lo sposta- 
mento laterale (o verticale) della stessa, 
nell’ambito della griglia di lavoro. Sconta- 


to il Clr, ovvero lo svuotamento della 
griglia, cui in caso di errore si può even- 
tualmente ovviare con il tasto Undo, che 
ripristina la condizione preesistente al- 
l’ultima manovra effettuata. 

Particolare importanza riveste la pos- 
sibilità di bufferizzare l’intero carattere 
presente all’interno della griglia, grazie 
alla semplice attivazione col mouse di un 
bottone con freccia a sinistra, affiancato 
da un altro che svolge funzione opposta: 
riproduce nella griglia il contenuto del 
buffer. Importanza legata ad un aspetto 
cui non si è ancora fatto cenno. Finora si 
è parlato di un ambiente di editing, ma in 
realtà gli ambienti sono due, compieta- 
mente autonomi, e interagibili proprio 
grazie alla bufferizzazione. Al di sopra 
dei bottoni prima descritti, è presente 
infatti una serie di altri gadget sotto forma 
di testo, sui quali si può intervenire tanto 
clickando con il mouse sui simboli grafici 
alla loro destra (per lo più delle freccet- 
te). quanto attivando (sempre con il mou- 
se, ma clickando sui valori numerici) un 
"modo testo" che consente di immettere 
da tastiera la scelta desiderata. 

Il primo di questi elementi, anch’essi 
definiti come "bottoni", è specificato dalla 
stringa Font. Attivandolo, si accede ad 
un’altra griglia di lavoro, facente capo ad 
un diverso font da editare o caricare da 
disco. Sfruttando la bufferizzazione, si 
può in pratica trasferire un carattere da 
un ambiente all’altro, cosa molto utile se 
per esempio si intende apportare modifi- 
che solo ad alcuni simboli di un certo set. 

Per selezionare il carattere da editare, 
si può adoperare il bottone software im- 
mediatamente successivo, che opera 
mediante un numero di posizione del ca- 
rattere nel set, oppure (più velocemente) 


clickando sull'opzione Normale, sempre 
presente sullo schermo. In questo caso 
viene visualizzato l’intero set, nel quale 
ci si può muovere liberamente con il mou- 
se. Clickando sul carattere sotto il poin- 
ter, questo diventerà il campo di lavoro 
nella solita griglia. Quando si carica un 
font, non tutti i simboli visualizzati in fase 
di selezione rapida sono realmente attivi, 
come si può constatare agendo sul riqua- 
dro Modo 1 (per accedere al modo 2), 
che mostrerà quelli non validi contrasse- 
gnandoli con un simbolo particolare. 
Questi, o meglio la loro posizione, volen- 
do possono essere resi attivi clickandovi 
sopra col pulsante destro del mouse, per 
poi eventualmente tornare all’editing de- 
gli stessi. 

□ □ 

Grandi manovre 

C on i tre gadget successivi, si influisce 
sulla dimensione orizzontale dei ca- 
ratteri, che influenzerà la futura visualiz- 
zazione in termini di stringa, ovvero di 
caratteri tra di loro adiacenti. 

In particolare, agendo sul bottone 
Dim.X si può incrementare o decremen- 
tare la dimensione orizzontale della gri- 
glia contenente il carattere, che, non lo si 
dimentichi, viene tutta memorizzata (sot- 
to forma di bitmap) a rappresentare detto 
carattere. In pratica, questa opzione an- 
drà sfruttata se si intende elaborare un 
cosiddetto font proporzionale, in cui 
cioè ogni singolo elemento può avere 
una spaziatura diversa dagli altri. Per 
fare un esempio, la lettera "1" occuperà 
uno spazio orizzontale inferiore alla lette- 
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ra "M ", tipicamente la più larga. Se il font 
non è proporzionale, tutti i caratteri han- 
no la stessa ampiezza, anche se posso- 
no essere centrati in porzioni diverse del- 
la stessa griglia. 

Premesso che Professional Font Ma- 
ker consente la conversione da propor- 
zionale ad ampiezza fissa tramite una 
semplice macro (se ne riparlerà), non è il 
caso di adoperare questo "bottone" solo 
per aggiungere uno spazio che divide- 
rebbe il carattere da quello successivo. 
A questo scopo, è infatti predisposta l’op- 
zione Spazio, espressa da un valore nu- 
merico modificabile con le solite freccet- 
te. Un esempio: se la Dimesione X di un 
carattere risulta impostata a 30. uno Spa- 
zio di 32 implicherà la presenza di due 
colonne vuote a destra del carattere, an- 
che se queste non verranno visualizzate 
nella griglia di lavoro. Analogamente, la 
funzione Inizio determinerà la posizione 
di partenza della stampa o della visualiz- 
zazione del carattere. 

Se quanto finora visto riguarda soprat- 
tutto l’editing di singoli caratteri, estrema 
importanza riveste in Pfm la precisazione 
dei parametri generali riguardanti il font, 
le cui caratteristiche vengono associate 
nello stesso file che li descrive. La stessa 
griglia di lavoro, che poi determina tanto 
le dimensioni quanto la densità del carat- 
tere. va impostata per esempio tramite 
l’opzione del menu Parametri/Descri- 
zione Font, il cui requester di input com- 
prende le voci Max X. Max Y. Dpi X. Dpi 
Y (Dpi= Dot per Inch). 

Nello stesso requester, appaiono voci 
che senza l’aiuto del manuale risulteran- 
no incomprensibili ai più: Prologo, Se- 
quenza attivati, Epilogo, eccetera. E 
qui. bisogna dire, le cose si fanno un po’ 


più complicate, in quanto queste scelte 
determinano il formato che assumeranno 
i dati riguardanti i font, secondo una co- 
difica chiamata Ffdl. Si tratta in pratica di 
un vero e proprio linguaggio di codifica, 
le cui caratteristiche possono essere ap- 
profondite (il manuale lo tratta esaurien- 
temente), o altrimenti "bypassate" adot- 
tando dei file Parametri già compresi nel 
programma. 

Va detto, inoltre, che Pfm consente di 
acquisire o salvare i font in un suo forma- 
to esclusivo, utile soprattutto per l’invio 
del font alle stampanti, oppure nel forma- 
to standard di Amiga, indispensabile, co- 
me ovvio, se si intende adoperare i carat- 
teri per applicazioni video/grafiche gesti- 
te da altro software. 

Impossibile descrivere nei dettagli la 
marea di facilitazioni ed opzioni legate ai 
menu della title bar; ci limiteremo ad ac- 
cennare come ad un font possa essere 
direttamente assegnato un attributo se- 
lezionandolo/li daH'omonimo menu, che 
consta di ben 1 6 voci: dai comuni Neret- 
to. Corsivo, eccetera, ai meno frequenti 
Negativo. Bozza, Con Grazie, e così 
via... attribuendo. 


Le Macro 

P rima di concludere, non si può co- 
munque ignorare una delle caratteri- 
stiche più potenti di Personal Font Maker: 
l’implementazione di Macro in grado di 
svolgere, al posto dell’utente, le attività 
più ripetitive, o addirittura di rivoluzionare 
un intero font in base a precise caratteri- 
stiche comuni. Una per tutte, basti citarne 
una. inclusa nel package (Shadow) che 
aggiunge un’ombra a tutti i caratteri. 


Alle macro è riservato un intero menu, 
che include alcune capacità peculiari. In- 
tanto è possibile leggerle da disco, nel 
senso proprio di leggerne il contenuto, 
direttamente dal requester di input/out- 
put. Poiché sono memorizzate in norma- 
le testo Ascii, sono comunque esamina- 
bili (nonché editabili) con un qualsiasi 
editor. Selezionata la voce Esaminare 
(del menu Macro), e successivamente il 
nome della macro dal requester, questa 
viene mostrata in forma esplicita, oppure 
nei suoi codici effettivi, ognuno dei quali 
compie una determinata azione. Questi 
codici sono elencati nel manuale, ma per 
creare una macro c’è un metodo molto 
più semplice ed immediato: registrarla. 

Già, proprio registrarla, nel senso che 
si può attivare la relativa voce dal menu, 
assegnare un nome al file che conterrà 
la macro, e al solito pointer verrà aggiun- 
ta una grossa M per indicare che ci si 
trova in modalità registrazione. Da que- 
sto momento in poi, qualunque azione 
effettuata verrà trasformata da Pfm nel 
relativo codice e memorizzata nel file. La 
stessa andrà poi salvata su periferica 
(opzione Scrivere Macro), e, ogni volta 
che la si richiamerà, eseguirà esattamen- 
te le stesse manovre da noi effettuate in 
fase di registrazione. 

Molto utili quelle già fornite a corredo 
del package, che consentono per esem- 
pio di dare l’outline ad un font, o di 
utilizzare un font a 7 bit come punto di 
partenza per convertirlo in uno ad 8 bit. 

Non sarebbe finita qui, ma... è tempo 
di conclusioni. Che poi possono riassu- 
mersi in una sola frase: un nuovo best- 
seller made in Italy, da affiancare degna- 
mente all’altro astro della Cloanto, il C1- 
Text. 
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Un "trucco" per vincere (quasi) sempre al gioco reso 
popolare dal film "L 'anno scorso a Marienbad" 
richiede l’impiego della matematica binaria 


I l programma proposto prende spunto 
dall’articolo Informatica da spiaggia 
pubblicato sul numero 55 della rivista e 
qui proposto nelle versioni AmigaBasic 
e Gw Basic per Ms Dos. 

In pratica si tratta del notissimo gioco 
della piramide di fiammiferi, costituita co- 
me in figura, giocato da due persone. 

La regola fondamentale è che i due 
giocatori, alternativamente, possono 
prelevare un qualsiasi numero di fiam- 
miferi, purché da una sola riga; vince chi 
prende l’ultimo fiammifero rimasto. 

Esiste però un piccolo trucco col quale 
è possibile vincere sempre o quasi (per 
non togliere il piacere ai lettori di scoprirlo 
non viene descritto in questa sede) e tale 
trucco è proprio quello eseguito dal com- 
puter nel gioco riportato in queste pagine: 
basterà dire che esso si basa sulla nu- 
merazione binaria. 

Dal momento che il computer vincerà 
quasi sempre, per non scoraggiare il gio- 
catore umano esistono due livelli di gio- 


1 

l 1 
ili 
llll 
lllll 
llllll 
lllllll 


La piramide di fiammiferi 


co; nel primo il computer esegue le mos- 
se in modo totalmente casuale, nel se- 
condo sceglie la mossa migliore. Pertan- 
to il primo livello è utile per ambientarsi 
nell’ottica del gioco. 

Come si gioca 

D opo aver scelto il livello, appare una 
semplice schermata contenente, al 
centro, l'ormai celebre piramide; alla sua 
sinistra i numeri da 1 a 7 riportano, in 
colonna, il numero di riga; le lettere da A 
a M (che compaiono in alto) indicano, 
invece, la colonna. A destra della pirami- 
de viene visualizzata una misteriosa(l) 
sfilza di numeri binari. 

Compare, quindi, la richiesta... 

Quale riga (1-7)? 

...che chiede da quale riga si vorranno 
prelevare i fiammiferi dalla piramide. 

La domanda successiva... 

Quale unità (/=fine)? 

...chiede la colonna da cui si intende 
prelevare (nella riga scelta precedente- 
mente) tramite la digitazione (in minusco- 
lo!) di una lettera da A a M. Digitando la 
barra inclinata (/) si passa il turno al cer- 
vellone. 

E’ come se si giocasse a battaglia na- 
vale, in cui si danno le coordinate della 
nave da affondare. 

Da notare che. dopo ogni mossa (nella 
colonna di sinistra) appare il numero dei 
fiammiferi rimasti nella piramide, oltre a 
vari messaggi nel caso si indicasse, per 
errore, una riga o una casella vuota. 


Particolarmente utile è la subroutine 
denominata Binary (per l'Amiga) e quel- 
la che inizia alla linea 1360 (per Ms Dos) 
che convertono un numero qualsiasi da 
decimale a binario: variando il valore del- 
la variabile PS si varia il range dei numeri 
convertibili, secondo lo schema seguen- 
te: 

?S N. dee. Convertibili 

3 0 < n < 7 

4 0 < n < 15 

5 0 < n < 31 

6 0 < n < 63 

...eccetera. 

Ma che diavolo saranno mai quei nu- 
meri binari sulla destra che cambiano 
continuamente dopo ogni mossa? 

Non sono altro che la ''traduzione", in 
base binaria, del numero intero decimale 
(compreso tra 0 e 7). 

Tutti(!) dovrebbero sapere che tale tra- 
duzione corrisponde, limitatamente ai 
primi otto valori, a... 

0 000 

1 001 

2 010 

3 011 

4 100 

5 101 

6 110 

7 111 

Ora. senza entrare nel merito della ma- 
tematica binaria, il trucco per vincere al 
gioco consiste nel fare in modo che le tre 
file verticali di zero ed uno contengano un 
numero pari di simboli 1 . 
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Appena il gioco inizia, quindi, le tre file 
contengono già un numero pari di simboli 
1 (ogni colonna ne contiene, infatti, 4). 

Seguendo le regole del gioco, pertan- 
to, bisogna eliminare (da un'unica fila, lo 
ricordiamo) un numero tale di fiammiferi 
tale che il numero simboli 1 (conteggiato 
verticalmente) rimanga sempre pari. Per 
esempio, se ad un certo punto del gioco 
la situazione è come quella seguente... 

0 000 
1 001 
2 010 

3 011 

4 100 

4 100 

2 010 
7 111 


...(in cui, cioè, vi sono tre 1 nella prima 
fila verticale a sinistra, quattro 1 in quella 
centrale e tre 1 a destra) eliminando dalla 
quinta fila tre simboli 1 (lasciando, quindi, 
un solo fiammifero) riporteremo la "pari- 
tà" nelle tre file verticali. 

Se, procedendo nel modo descritto, si 
costringe l’avversario ad arrivare fino alla 
fine presentandogli sempre colonne "pa- 
ri", si ottiene la vincita. 

A mano a mano che vengono eliminati 
i fiammiferi (è infatti possibile toglierne 
solo uno alla volta) la "traduzione" in 
codice binario viene aggiornata imme- 
diatamente, in modo da consentire alcuni 
ragionamenti. Ovvio che tale opportunità 
è stata inserita per puro scopo didattico. 


Da notare che le combinazioni possibili 
per raggiungere la parità sono numero- 
se; alcune, però, riescono ad inchiodare 
l’avversario; altre, invece, gli lasciano 
qualche scappatoia aperta. 

Inutile dire che, chi lo desidera, può 
apportare numerose modifiche, tra cui 
suggeriamo la possibilità di sistemare 
nuovamente alcuni fiammiferi (eliminati 
per errore) prima di passare la mano al 
computer. 

Grazie alla semplicità della procedura, 
il gioco può essere giocato anche senza 
l'aiuto del computer; è però indispensa- 
bile imparare a memoria le "traduzioni" 
ed effettuare a mente i vari calcoli; un 
buon esercizio di memoria, non c’è che 
dire! 


' The binary game 

’ by Roberto Corelli 

' versione AmigaBasic 

DEFINT a-z: RANDOKIZE TIMER 

* BIN$ () --> numeri binari da 1 a 7 

* AMITAB () --> scacchiera del computer 

' BOX () — > per il secondo livello di gioco 

' MOSSES () --> mosse valide al secondo livello 
DIM bin$ (7), amitab (7, 13), box (7, 13), mosse$ 
( 7 ) 

riga$ - STRING$ (30, " "): pezzi = 28 

SCREEN 1, 32 C, 200, 1, 1: WINDOW 1, "The binary 

game”, ,0, 1 

WHILE a$ <> "1" AND aS <> "2" 
a$ - 1NKEYS 

LOCATE 10, 5: PRINT "Scegli livello (1-2)" 

WF.ND 

lv - VAL (a$) : CL3 : GOSUB GameField 

' loop principale 

WHILE pezzi <> 0 

player - 0: arr.iga = 0 
GOSUB PlayerMove 

TF player = 1 AND pezzi - 0 THF.N GOTO PlayerWins 
GOS'JB AnigaPlays 
WEND 

PlayerWins : 

Ir player THEN CLS : BEEP: PRINT "Hai vinto!" 

IF airiiga THEN CLS: BEEP: PRINT "Ho vinto!" 
answerS = PRINT "Un'altra partita? (s/n)" 
WHILE answerS <> "s" AND answer$ <> "r." 

answerS - INKKYS 
WF.ND 

IF answerS = "s" THEN RUN 
CLS: PRINT "Bye! Bye ! " : END 

' subrout incs 

PlayerMove : 

LOCATE 17, 7: INPUT "Quale riga (1-7)"; x: c = 0 

' *** conta quante caselle '1' ci sono in riga X 

* * ■* 

FOR y - 1 TO 13 


IF amitab (x, y) - 1 THEN c = c 4 1 
NEXT y 

' *** la riga X e' vuota *** 

IF C - 0 THEN 

z$ = "la riga " ♦ STRS (x) + " e' vuota!" 

CALL errore (z$, riga$): GOTO PlayerMove 
END IF 
Labell : 

LOCATE 19, 3: INPUT "Quale unita' (/ - fine)"; 

unitS 

IF unitS - "/" THEN GOTO Fine 
' *** immettere solo lettere minuscole, * * * 

' *** dai momento che la lettera immessa *** 

/ ★ ** viene convertita in maiuscolo e *** 

' *** trasformata nell'equivalente codice*** 

' *** ASCII per trarre il numero di *** 

' *** colonna della scacchiera (A-M) *** 

y$ *= UCASES (unitS) : yl = ASC (y$)-64 
' **♦ mette uno 'C' riga X colonna Yl se *** 

/ *** la colonna contiene '1' *** 

IF amitab (x, yl) = 1 THEN 

LOCATE x * 6, yl 4- 10: PRINT "0" 

— — < Se* 

' *** la casella indicata e' vuota *** 

LOCATE 1, 1: PRINT "La casella indicata e' vuota!" 
FOR z " 1 TO 8000: NEXT z 
LOCATE 1, 1: PRINT rigaS: GOTO Labell 
END IF 

' *** trasforma in binario il numero delle * * * 

' *** caselle contenenti '1' in riga X XTX 

amitab (x, yl) - 0: CALL binary ( (x), amitab ()) 
pezzi = pezzi-1: bin$ (x) - bin$ 

LOCATE 2, 1: PRINT "Pezzi rimasti -"; pezzi: GOTO 

Labe 11 

Fine: 

' *** svuota le linee contenenti le richieste *** 
FOR i - 1 TO 2: LOCATE 16 + i, 1: PRINT riga$: NEXT 
1 

player = 1: RETURN 
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AmigaPlays : 

LOCATE 1, 1: PRINT "Ok. Ora tocca a ne!" 
ON lv GOSUB Leve l 1 , Leve 12 
LOCATE 1, 1: PRINT rigaS: RETURN 


Leve 1 1 : 

' X — > num. riga 
' Y --> num. colonna 

' PZ -> num. di pezzi da prelevare in riga X 
GOSUB verifica 
FOR volte » 1 TO pz 
Loop2 : 

' *** prende una colonna a caso da riga X *** 
y - (RND <1 ) * 1 3) + 1 

' *** se la casella X, Y contiene '1' azzerala 
* * * 

TF ani tab (x, y) = 1 THEN 

LOCATE x + 6, y 10: PRINT "0" 

ELSE 

GOTO L00p2 
END IF 

' *** trasforma il numero delle caselle in riga 
X *** 

/ *** contenenti '1' nel corrispondente binario 

* * A 

amitab (x, y) 0: CALL binary ( (x), amitab ()) 
pezzi * pezzi-1: bin$ (x) = bin$ 

LOCATE 2, 1: PRINT "Pezzi rimasti pezzi 
NEXT volte: amiga * 1 
LOCATE 17, 1: PRINT riga$: RETURN 


Level2 : 

sx - 1 : GOSUB verifica 
' *** copia la riga X in BOX () *** 

FOR z * 1 TO 13: box (x, z) = amitab (x, z) : NEXT 

7 . 

FOR volte - 1 TO pz 
Loop 3 : 

' *** preleva una colonna a caso da riga X *** 
y.- RND ( 1 ) * 13 : IF y = 0 THEN y = 1 
' *** se la casella X, Y e' piena la mette in 
MOSSES () *** 

' *** (se la mossa e' valida, vengono effettuate 
le *** 

' *** mosse contenute in tale matrice 

* * * 

IF amitab (x, y) = 1 THEN 
amitab (x, y) = 0 

a$ = STR$ (x): b$ = STR$ <y) : z - 1: IF LEN 
<b$) =* 3 THEN z = 2 

mosseS (volte) = RIGHTS (a$, 1) + MIDS (bS, 

2, z) 

ELSE 

GOTO LOOp3 
END IF 
NEXT volte 

' *** trasforma il numero delle caselle contenenti 
' ] • *** 

' *** in riga X nel corrispondente binario 

* * W 

CALL binary ( (x) , ami fah ()): hinS (x) - bin$ 
cl - 0: c2 » 0: c3 = 0 


' *** conta quanti '1' binari ci sono nelle tre 
colonne * * * 

FOR z = 1 TO 7 
bS = bin$ (z) 

IF LEFT$ (b$, 1) - "1" THEN cl * Cl M 
IF MID$ (b$, 2, 1) = "1" THEN c2 = c2 + 1 
IF RIGHT$ (b$, 1) = "1" THEN c3 = c3 U 
NEXT z 

' *** se SW - 1 significa che il numero degli ' 1' 
binari *** 


*** nelle tre colonne e 


pan 


GOSUB control: IF sw = 1 THEN GOTO ok 
' *** mossa errata; riprendi il contenuto della 
* * * 

' *** vecchia riga X *** 

FOR z = 1 TO 13: amitab (x, z) = box (x, z) : NEXT 
z 

' *** ricalcola il vecchio valore binario *** 

CALL’ binary ( (x) , amitab ()) 
bin$ (x) = bin$: GOTO Level2 
ok : 

LOCATE 17, 2: PRINT "Io muovo"; pz; " pezzi da 

riga"; x 

FOR z = 1 TO 8000: NEXT z 

' *** trasforma le stringhe di MOSSES () *** 

' *** in numeri per 1' effettuazione *** 

• *** pratica delle mosse *** 

FOR p = 1 TO pz 

x - VAL (LEFTS (mosseS (p) , 1)) 
y = VAL (RIGHTS (mosseS (p) , 1)) 

IF LEN (mosseS (p) ) - 3 THEN y = VAL (MIDS (mosseS 
(p), 2, 2)) 

LOCATE x ♦ 6, y ♦ 10: PRINT "0" 

pezzi = pezzi-1: LOCATE 2, 1: PRINT "Pezzi rimasti 
-"; pezzi 
NEXT p: amiga ■ 1 
LOCATE 17, 1: PRINT rigaS: RETURN 


GameField: 

' *** mette 28 '1' nella scacchiera del computer 

w ir w 

p = 7 : q » 1 : s-13 
WHILE p> = 1 

FOR y = q TO s STEP 2 
amitab (p, y) - 1 

LOCATE p + 6, y + 9: PRINT amitab (p, y) 

NEXT y 

p = p-1: q » q 4 1 ; s * s-1 
WEND 

LOCATE 5, 11: PRINT "ABCDEFGHI JKLM" 

' *** a sinistra della scacchiera scrive il numero 
di riga 

' *** e a destra i relativi numeri binari *•* 

FOR y = 1 TO 7 

LOCATE y + 6, 8: PRINT CHRS (48 + y) 

LOCATE y + 6, 26: PRINT binS (y) 

NEXT y 

FOR x = 1 TO 7 

CALL binary ( (x), amitab ()): bin$ (x) » binS 
NEXT x 
RETURN 
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control : 

FOR z = 1 TO 8000: NEXT z 


' *** se tutte e tre le colonne contengono un •** 

RETURN 


' *** numero pari di ' 1' binari, allora SW - 1 

♦ * * 

' sottoprogrammi 


sw = 0 

SUB errore (a$, bS) STATIC 


IF cl - 0 OR cl = 2 OR cl = 4 OR cl = 6 THEN 

BEEP: LOCATE 1, 1: PRINT a$ 


IF c2 = 0 OR c2 » 2 OR c2 = 4 OR c2 = 6 THEN 

FOR z = 1 TO 8000: NEXT z 


IF C3 » 0 OR C3 » 2 OR c3 - 4 OR c3 = 6 THEN 

LOCATE 1, 1: PRINT b$ 


SW » 1 

END SUB 


END IF 

END IF 

SUB binary (a, a (2)) STATIC 


END IF 

SHARED bin$ 


RETURN 

c = 0: ps - 3: bin$ - "000" 


verifica : 

' *** conta quante caselle ' 1' ci sono 

in riga X 

c = 0 

* • * 


' *** preleva una riga a caso e *** 

FOR v « 1 TO 13 


' *** controlla che non sia vuota *** 

IF a {a, v) = 1 THEN c = c + 1 


' *** in tal caso preleva altra riga •** 

NEXT v 


WHILE c - 0 

WHILE c>0 


x » RND (1) *7 

IF C = 2 OR c B 4 OR C ■ 6 THEN MID$ 

<bin$, ps, 

FOR v » 1 TO 13 

1) « "0" 


IF amitab (x, v) = 1 THEN c ■ c ♦ 1 

IF c 3 1 OR C = 3 OR c ** 5 OR c " 7 

THEN MIDS 

NEXT v 

(bin$, ps, 1) = "1" 


WEND 

c - INT (c/2) : ps = ps-1 


pz » RND (1 ) *c: IF pz - 0 THEN pz - 1 

WEND 


IF sx = 1 THEN sx * 0: RETURN 

LOCATE a + 6, 26: PRINT bin$ 


LOCATE 17, 2: PRINT "Io muovo"; pz; ” pezzi da 

END SUB 


riga"; x 


10 REM The binary game 

200 WHILE answerS <> "s" AND answerS <> "n" 

20 REM by Roberto Coralli 

210 answerS = INKEYS 

30 REM versione per MSDOS 

220 WEND 

35 DEFINT a-z: RANDOMIZE TIMER 

230 IF answerS = "s" THEN RUN 

40 DIM bin$ (7), comptab (7, 13), box (7, 13), 

240 CLS: PRINT "Bye! Bye!": END 

mosse$ (7) 

250 REM subroutines 

50 riga$ - STRINGS (30, H ") : pezzi - 28 

260 REM Muove il giocatore 

60 WHILE aS *> "1" AND a$ <> "2" 

270 LOCATE 17, 27: INPUT "Quale riga (1-7) "; x: 

70 aS - INKEYS 

c = 0 

80 LOCATE 10, 25: PRINT "Scegli livello (1-2) " 

280 FOR y = 1 TO 13: IF comptab (x, y) - 1 THEN c 

90 WEND 

- c + 1 

100 lv - VAL (a$) : CLS: GOSUB 1070 

300 NEXT y 

110 REM loop principale 

310 IF c = 0 THEN z$ ® "la riga " ♦ STRS (x) + " 

120 WHILE pezzi <> 0 

e' vuota!": GOSUB 1310: GOTO 270 

130 player = 0: ibm - 0 

320 LOCATE 19, 23: INPUT "Quale unita' (/ = fine) 

140 GOSUB 260: IF player = 1 AND pezzi = 0 THEN 

"; unitS 

GOTO 170 

330 IF unitS » "/" THEN GOTO 420 

150 GOSUB 440 

335 IF unitS <"a" OR unit$> "m" THEN GOTO 320 

160 WEND 

340 yS = UCASES (unitS): yl = ASC (yS) -64 

170 IF player THEN CLS: BEEP: PRINT "Hai vinto!" 

350 IF comptab (x, yl) =1 THEN LOCATE x + 6, yl 

180 IF ibm THEN CLS: BEEP: PRINT "Ho vinto!" 

♦ 30: PRINT "0": GOTO 390 

190 answerS = PRINT "Un'altra partita? (s/n) 

360 LOCATE 1, 25: PRINT "La casella indicata e' 

ir 

vuota ! " 
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370 FOR z = 1 TO 8000: NE XT z 
380 LOCATE 1, 25: PRINT riga$: GOTO 320 
390 compt ab (x, yl) =0: GOSUB 1360 
400 pezzi = pezzi-1: bin$ (x) = bin$ 

410 LOCATE 2, 31: PRINT "Pezzi rimasti pezzi: 

GOTO 320 

420 FOR i = 1 TO 3: LOCATE 16 + i, 21: PRINT rigaS: 
NEXT i 

430 player = 1: RETURN 

440 REM 

450 REM Gioca il computer 

460 LOCATE 1, 31: PRINT "Ok. Ora tocca a me!" 

470 ON Iv GOSUB 490, 690 

480 LOCATE 1, 25: PRINT rigaS: RETURN 

490 REM 

500 REM Levell 

600 GOSUB 1 460: FOR volte = 1 TO pz 

610 y « RND (1) * 13 

620 IF compt ab (x, y) =1 THEN LOCATE x ♦ 6, y + 
30: PRINT "0" : GOTO 640 
630 GOTO 610 

640 comptab (x, y) =0: GOSUB 1360 

650 pezzi = pezzi-1: bin$ (x) = binS 

660 LOCATE 2, 31: PRINT "Pezzi rimasti pezzi 

670 NEXT volte: ibm = 1 

680 LOCATE 17, 25: PRINT rigaS: RETURN 

690 REM 

700 REM Leve 12 

750 sx - 1: GOSUB 1460 

780 FOR z = 1 TO 13: box (x, z) - comptab (x, z) : 
NEXT z 

790 FOR voLte a 1 TO pz 

800 y = INT (RND (1) * 13): I F y * 0 THEN y = 1 

810 IF comptab (x, y) » 0 THEN GOTO 800 
820 comptab (x, y) - 0 

825 a$ - STRS (x) : bS - STR$ (y) : z = 1: IF LEN 
(b$) = 3 THEN z = 2 

830 mosseS (volte) - RIGHTS (a$, 1) + MIDS (b$, 

2, z) 

850 NEXT volte 

860 GOSUB 1360: bin$ (x) » bin$: cl = 0: c2 = 0: 

c3 = 0 

880 FOR z = 1 TO 7: b$ = bin$ (z) 

890 IF LEFTS (b$, 1) = "1" THEN cl » cl ♦ 1 
900 Ir MIDS (bS, 2, 1) = "1" THEN c2 = c2 + 1 
910 IF RIGHTS <b$, 1) = "1" THEN c3 = c3 - 1 

920 NEXT z : GOSUB 1230: IF sw = 1 THEN GOTO 970 
940 FOR z =» 1 TO 13: comptab (x, z) - box (x, z) : 
NEXT z 

950 GOSUB 1360: binS (x) - binS: GOTO 700 

970 LOCATE 17, 25: PRINT "Io muovo"; pz; " pezzi 

da riga"; x 

980 FOR z = 1 TO 8000: NEXT z 
990 FOR p - 1 TO pz 

1000 x = VAL (LEFTS (mosseS (p) , 1) ) 

1010 y = VAL (RIGHTS (mosseS (p) , 1) ) 

1020 IF LEN (mosseS (p) ) =3 THEN y = VAL (MIDS 

(mosseS (p) , 2, 2) ) 

1030 LOCATE x + 6, y + 30: PRINT "0" 

1040 pezzi “ pezzi-1: LOCATE 2, 31: PRINT "Pezzi 
rimasti -"; pezzi 


1050 NEXT p: ibm - 1: LOCATE 17, 31: PRINT rigaS: 
RETURN 

1070 REM 

1080 REM GameField 
1090 p = 7: q = 1: s = 13 
1100 WHILE p> * 1 

1110 FOR y s q TO s STEP 2: comptab (p, y) = 1 
1130 LOCATE p + 6, y + 29: PRINT comptab (p, y) : 
NEXT y 

1140 p = p-1: q = q + 1: s = s-1 
1150 WEND 

1160 LOCATE 5, 31: PRINT "ABCDEFGH I JKLM" 

1170 FOR x s 1 TO 7: GOSUB 1360: binS (x) = binS: 

NEXT x 

1180 FOR x « 1 TO 7 

1190 LOCATE x + 6, 28: PRINT CHR$ (48 * x) 

1200 LOCATE x + 6, 46: PRINT binS (x) 

1210 NEXT x 
1220 RETURN 

1230 REM 

1240 REM controllo mossa 
1250 sw « 0 

1260 IF cl <> C AND cl <> 2 AND cl <> 4 AND cl <> 
6 THEN GOTO 1300 

1270 IF c2 <> 0 AND c2 <> 2 AND c2 <> 4 AND c2 <> 
6 THEN GOTO 1300 

1280 IF c3 <> 0 AND c3 <> 2 AND c3 <> 4 AND c3 <> 
6 THEN GOTO 1300 
1290 sw « 1: RETURN 
1300 RETURN 

1310 REM 

1320 REM errore! 

1330 BEEP: LOCATE 1, 25: PRINT z$: FOR z - 1 TO 
8000: NEXT z 

1340 LOCATE 1, 25: PRINT rigaS: RETURN 
1350 REM 

1360 REM conversione decimale-binario 
1370 c = 0: ps = 3: binS - "000" 

1380 FOR v = 1 TO 13: IF comptab (x, v) » 1 THEN 
c = c + 1 
1390 NEXT v 
1400 WHILE c> 0 

1410 IF c = 2 OR c a 4 OR c = 6 THEN MIDS (binS, 
ps, 1) « "0" 

1420 IF C = 1 OR c » 3 OR c - 5 OR C ' 7 THEN MIDS 
(binS, ps, 1) - "1" 

1430 c = INT (c/2): ps » ps-1 
1440 WEND 

1450 IF flag = 1 THEN RETURN 

1455 LOCATE x + 6, 46: PRINT binS: RETURN 

1460 REM 

1470 C = 0 
1480 WHILE c = 0 

1490 x = RND (1) * 7 : FOR v = 1 TO 13 

1500 IF comptab (x, v) =1 THEN c = c + 1 
1510 NEXT v 
1520 WEND 

1530 pz = RND (1) * c: IF pz = 0 THEN pz - 1 

1540 IF sx = 1 THEN sx = 0: RETURN 
1550 LOCATE 17 , 25: PRINT "Io muovo"; pz; " pezzi 
da riga"; x 

1560 FOR z = 1 TO 8000: NEXT z: RETURN 
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Uno dei giochi più semplici da implementare 
è anche uno dei più noti in Italia 


I l programma di queste pagine (valido 
per qualsiasi computer Commodore), 
non è altro che l’implementazione di uno 
dei più famosi e diffusi giochi di carte: la 
briscola. 

Briscola, come si gioca 

N el gioco della briscola si utilizza un 
mazzo di 40 carte; nella prima mano 
vengono distribuite tre carte per ogni gio- 
catore, quindi ne viene pescata un'altra 
che verrà posta sotto il mazzo e che sarà 
la "Briscola", una specie di Jolly. 

A questo punto uno dei giocatori mette 
sul tavolo una carta, che l’avversario po- 
trà: 

Prendere, con una carta che abbia lo 
stesso seme e valore superiore, o con 
una carta che abbia lo stesso seme della 



briscola; se la carta in tavola è una bri- 
scola, potrà essere presa solo con un'al- 
tra briscola di valore maggiore. 

Lasciare, con una carta che abbia lo 
stesso seme e valore inferiore o con un 
qualsiasi seme diverso da quello della 
carta in tavola e un qualsiasi valore. Tutte 
le carte valgono 0 punti, ad eccezione di: 
8, che vale 2 punti; 9, che vale 3 punti; 
10, che vale 4 punti; 3, che vale 10 punti; 
1 (asso), che vale 11 punti. 

Ogni volta che si conclude un’opera- 
zione (ogni volta che, cioè, entrambi i 
giocatori hanno giocato una carta), il gio- 
catore che ha preso le carte dal tavolo 
pesca per primo dal mazzo, subito segui- 
to dall’altro giocatore. 

La briscola viene considerata come 
una normale carta, ma viene posta in 
fondo al mazzo. A mazzo terminato, si 
continua fino ad esaurimento delle carte. 
Scopo del gioco è quello di ottenere più 
punti del proprio avversario. Sarà utile 
ricordare che il totale dei punti disponibili 
è 120. quindi per vincere è sufficiente 
totalizzare almeno 61 punti. 

Giocando 

D urante il gioco il computer mostra in 
alto a sinistra le carte a disposizione 
dell’utente; in basso, invece, viene indi- 
cata la briscola, le carte rimaste nel maz- 
zo ed i punti totalizzati fino a quel mo- 
mento dal computer e dal giocatore, in 
modo da avere, in ogni momento, la si- 
tuazione sotto controllo. 

A mazzo esaurito, le carte usate, e non 
rimpiazzate, verranno sostituite con uno 


0. Per comunicare al computer la propria 
scelta, è sufficiente digitare il numero 
della carta (corrispondente a quella vi- 
sualizzata sullo schermo) che si intende 
giocare (cioè 1 , 2, 3). 

La parte più consistente ed interessan- 
te del programma, come sempre in giochi 
di questo genere, riguarda la risposta 
fornita da parte dell’elaboratore. Comun- 
que le note presenti nel programma do- 
vrebbero risultare di notevole aiuto a tutti 
coloro che fossero interessati ad uno stu- 
dio della routine. 

Le 6 carte in mano ai giocatori sono 
immagazzinate nella variabile V (numero 
giocatore, numero carta), mentre per 
controllare che non venga pescata col 
meccanismo casuale una carta già gio- 
cata, dopo ogni carta pescata, la variabi- 
le Check (valore, segno), viene posta ad 

1. 


Miglioratelo, ragazzi! 

I l programma, come ogni listato che si 
rispetti, è suscettibile di variazioni ed 
ampliamenti di vario genere. 

I più attenti osservatori si accorgeran- 
no infatti che la risposta del computer alla 
mossa del giocatore è completamente 
guidata e nulla è lasciato alla casualità. 

Solo nel caso in cui sia il computer a 
dover fare la prima mossa il meccanismo 
è, ovviamente, completamente casuale. 
Il consiglio è quindi quello di inserire una 
routine in grado di far "ragionare’’ il vostro 
elaboratore anche nel caso in cui debba 
giocare la prima carta. 
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seccar: 

x - 1: o - 3 - o: IF ca = 40 THEN valore - valbri: segno = segbri 

IF ca > 39 THEN pesca ELSE GOSUB vase : GOTO pesca 

prmossa : 

ci = INT (3*RND) +1 : IF v (2, ci) - 0 THEN prmossa 
LOCATE 15, 15: PRINT v (2, ci);a$ (s (2 # ci)): GOTO attesa 

contr : 

pi - v (1, a)/10 + pu (v (1 # a)): p2 - v (2, ci)/10 ♦ pu (v (2, ci)) 

si = s (1, a) : s2 - s (2, ci): x = 0: o = 1 

IF si = s2 AND pi > p2 THEN o - 2: GOTO ok 


IF Si = s2 AND p2 > pi THEN ok 
IF si » segbri THEN o = 2 
GOTO ok 

vase : 

valore = INT (10*RND)+1: segno - 1NT (4*RND)+1: IF check (valore, segno) - 
check (valore, segno) = 1 : RETURN 

fine : 

LOCATE 23, 1: IF p (2) > p (1) THEN PRINT "Hai vinto!": END 
IF p (2) < p (1) THEN PRINT "Ho vinto!" ELSE PRINT "Pareggio" 

END 


1 THEN vase 



100 REM Briscola. Versione Gw-Basic (tra parentesi quadre: modifiche per C/64) 

110 REM by Dario Pistella 1991 per Commodore Computer Club 

120 RITARDO = 10000: REM Loop per adattarsi alla velocita' del computer 

130 REM Ritardo consigliato: 10000 per CPU 80386; 1000 per CPU 8088 


140 RANDOMIZE (TIMER): A$(l) = "d" : A$(2) = "b" : A$(3) = "s 
150 PU(1) » 11: PU (3) - 10: PU(10) - 4: PU(9) - 3: PU(8) - 
160 CLS : FOR DA - 1 TO 3: FOR G = 1 TO 2 : GOSUB 860 
170 IF G = 1 THEN PRINT VL; A$(SG) 

180 V (G, DA) = VL: S (G, DA) = SG 
190 NEXT G, DA 

200 GOSUB 860: LOCATE 20, 1: PRINT VL; A$(SG): REM briscola 
210 VB = VL: SB = SG: CA = 6: GOSUB 590 

220 REM mossa giocatore 

230 A$ = "" 

240 A$ - INKEY$ : IF A$ < "1" OR A$ > ”3" OR A$ = "" THEN GO 

250 REM [C/64] GET a$: IF a$ < "1" OR aS > "3" OR aS - "" T 

260 A = VAL (A$) : IF V(l, A) = 0 THEN GOTO 230 

270 LOCATE 15, 1: PRINT V(l, A); A$(S(1, A)): FOR RIT * 1 T« 

280 LOCATE A, 1: PRINT " ": IF X THEN GOTO 790 

290 REM *** computer decide se prendere o lasciare *** 


A$(4) = 


= "" THEN GOTO 230 
OR aS - "" THEN GOTO 250 


1 TO RITARDO: NEXT: 
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300 PU = PU<V(1 / A)): S = S(l, A): FOR 0 - 1 TO 3 

310 IF PU (V (2, Q) ) > PU AND S * 5(2, Q> AND PU(V(2, Q ) ) > 9 THEN CI = Q: 0=1: GOTO 620 

320 NEXT : PU = PU + <V<1, A) / 10): 1F PU < 3.9 THEN GOTO 420 

330 REM prendi 

340 RP = 1: FOR CI = 1 TO 3: Z = PU(V(2, CI)) + (V(2, CI) / 10) 

350 IF S(2 f CI) = S AND PU < Z THEN 0=1: GOTO 620 

360 NEXT : IF S ( 1 , A) = SB THEN GOTO 420 
370 M = 30: MM = 0: FOR CI » 1 TO 3 

380 IF S (2 , CI) - SB AND M > V (2 , CI) THEN K - V<2, CI): MM = CI 

390 NEXT: IF M = 30 THEN GOTO 420 
400 CI = MM: O - 1: GOTO 620 

410 REM lascia 

420 R = 30: U - R: UU = 0: RR = 0: FOR C = 1 TO 3: REM valori minori 

430 VL - PU (V (2, C) ) + (V (2, C) / 10): SC = S(2, C) : IF VL = 0 THEN VL = 40 

440 IF SC <> SB AND VL < U THEN U - VL: UU = C 

450 IF SC - SB AND VL < R THEN R = VL: RR = C 

460 NEXT 

470 0 * 2: IF S <> SB THEN 530 

480 IF U <« 10 OR (U > 10 AND R >= 10) THEN CI - UU: GOTO 620 

490 REM computer cede briscola 

500 CI - RR: TF PU > R THEN GOTO 620 
510 0 = 1: GOTO 620 

520 REM non briscola 

530 IF U > 10 AND U < 30 AND S(2, UU) » S AND RP = 0 THEN GOTO 340 

540 IF R < 30 AND ( (U > 10 AND U < 30) OR U = 30) THEN GOTO 500 

550 IF (U <= PU AND S(2, UU) = S) OR S <> S<2, UU) THEN CI = UU: GOTO 620 

560 CI - UU: IF S = S(2, UU) THEN O = 1 

570 GOTO 620 

580 REM carte rimaste 

590 LOCATE 21, 1: PRINT "rimaste"; : IF CA > 40 THEN PR1NT 0: ELSE PRINT 40 - CA 
600 PRINT "tuoi:"; P(2), "computer:"; P ( 1 ) : RETURN 

610 REM ok 

620 LOCATE 15, 15: PRINT V( 2, CI); A$(S<2, CI)): FOR RIT = 1 TO RITARDO: NEXT: 

630 P (O) - P (0) 4- PU (V (2, CI)) + PU(V(1, A)): CA = CA ♦ 2: GOSUB 590 

640 IF CA = 46 THEN GOTO 900: ELSE VL - 0 : SG « 0: IF CA < 41 THEN GOSUB 860 

650 REM pesca 

660 FOR K - 1 TO 1500: NEXT: LOCATE 15, 1: PRINT SPACE$(40) 

670 IF 0=2 THEN V(l, A) = VL: S(i, A) = SG: LOCATE A, 1: PRINT VL; A$ (SG) 

680 IF O ° 1 THEN V(2, CI) = VL: S<2, CI) » SG 
690 TF X AND 0=1 THEN X = 0: GOTO 230 
700 IF X THEN 760 
710 REM seconda carta 

720 X - 1: 0-3-0: IF CA = 40 THEN VL - VB : SG = SB 
730 IF CA > 39 THEN GOTO 660: ELSE GOSUB 860: GOTO 660 

740 REM prima mossa computer 

750 CI = INT (3 - RND(l)) 4- 1; IF V<2, CI) =0 THEN GOTO 750 

760 REM [C/64] ci - INT(3 * RND (0 ) ) + 1 : IF v<2, ci) = 0 THEN GOTO 760 

770 LOCATE 15, 15: PRINT V(2, CI); A$(S(2, CI)): GOTO 230 

780 REM controllo 

790 PI - V(l, A) / 10 ♦ PU(V(1, A)): P2 - V<2, CI) / 10 + ?U(V(2, CI)) 

800 SI - S(l, A): S2 = S(2, CI): X = 0: C - I 

810 IF SI = S2 AND PI > P2 THEN 0=2: GOTO 620 

820 IF SI = S2 AND P2 > PI THEN GOTO 620 

830 IF SI = SB THEN 0-2 

840 GOTO 620 

850 REM valore e segno 

86C REM rc/64] vi - INT <10 4 RND (0) ) + 1: sg = INT (4 * RND (0) ) 4- 1: IF ck(vl, sg) = 1 THEN GOTO 860 

87C VL = INT (10 * RND ( 1 ) ) +1: SG “ INT (4 * RND ( 1 ) ) + 1: IF CK(VL, SG) = 1 THEN GOTO 870 

88C CK (VL, SG) =1: RETURN 

890 REM fine 

9C0 LOCATE 23, 1: IF P (2 ) > PU) THEN PRINT "hai vinto!": END 
9'. 0 IF P (2 ) < P ( 1 ) THEN PRINT "ho vinto!": ELSE PRINT "pareggio" 

920 END 
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REM Briscola (versione AMIGA) 

REM by Dario Pistella 

RANDOMIZE TIMER 

a$ (1) - "d": a$ (2) - "b M : a$ (3) - H s": a$ (4) = M c M 
pud) = 11: pu (3) - 10: pu (10) ■ 4: pu (9) » 3:pu(8) = 2 
CLS : FOR dare = 1 TO 3: FOR g = I TO 2: GOSUB vase 
IF g ■ 1 THEN PRINT valore; aS (segno) 

v (g, dare) = valore: s (g, dare) « segno 
NEXT g, dare 

GOSUB vase: LOCATE 20, 1: PRINT valore;a$ (segno): REM briscola 
valbri = valore: segbri = segno: ca - 6: GOSUB carrim 

attesa : 

a$ - INKEYS : IF a$ = •" OR VAL (a$) < 1 OR VAL (a$) > 3 THEN attesa 

a - VAL (a$) : IF v (1, a) - 0 THEN attesa 

LOCATE 15, 1: PRINT v (1, a);a$ (s (1, a)) 

LOCATE a, 1: PRINT " ": IF x THEN contr 

REM *** computer decide se prendere o lasciare *** 

pu * pu (v (1, a)): s ** s (1, a): FOR q « 1 TO 3 

IF s ■ s (2, q) AND pu (v (2, q) ) > 9 AND pu (v (2, q) ) > pu THEN ci ! 
NEXT: pu - pu ♦ (v (1, a) /IO): IF pu < 3.9 THEN lascia 

prendi : 

rp » 1: FOR ci = 1 TO 3: z = pu (v (2, ci)) ♦ (v (2, ci) /IO) 


pu THEN ci 


o - 1 : GOTO ok 


(v (2, ci) /IO) 


IF s (2, ci) « s AND pu < z THEN o = 1: GOTO ok 

NEXT: IF s (1, a) « segbri THEN lascia 
m » 30: mm = 0: FOR ci ■ 1 TO 3 

IF s (2, ci) = segbri AND m > v (2, ci) THEN m 
NEXT: IF m = 30 THEN lascia 
ci » mm: o - 1: GOTO ok 


(2, ci) : mm = 


lascia: 

r = 30: u - r: uu - 0: rr » 0: FOR c = 1 TO 3: REM valori minori 
vi = pu (v (2, c)) + (v (2, c)/10): se * s (2, c) : IF vi » 0 THEN vi 
IF se <>' segbri AND vi < u THEN u » vi: uu = c 
IF se - segbri AND vi < r THEN r « vi: rr - c 
NEXT 

o * 2: IF s <> segbri THEN nonbri 

IF u < B 10 OR (u > 10 AND r > = 10) THEN ci - uu: GOTO ok 

dobri : 

ci = rr: IF r < pu THEN ok 
o = 1: GOTO ok 


nonbri : 

IF u > 10 AND u < 30 AND s (2, uu) = s AND rp = 0 THEN prendi 
IF r<30 AND ( (u > 10 AND u < 30) OR u - 30) THEN dobri 
IF (u < - pu AND s (2, uu) - s) OR s <> s (2, uu) THEN ci ■ 
ci = uu: IF s ■ s (2, uu) THEN o » 1 
GOTO ok 


uu : GOTO ok 


carrim: 

LOCATE 21, 1: PRINT "rimaste";: IF ca > 40 THEN PRINT 0 ELSE PRINT 40 - ca 
PRINT "tuoi: "p (2), "computer: "p (1): RETURN 


LOCATE 15, 15: PRINT v (2, ci);a$ (s (2, ci)) 
p (o) = p (o) ♦ pu (v (2, ci)) + pu (v (1, a)): 

IF ca - 46 THEN fine ELSE valore = 0: segno = 


ca = ca ♦ 2: GOSUB carrim 
0: IF ca < 41 THEN GOSUB vase 


pesca : 

FOR k - 1 TO 1500: NEXT: LOCATE 15, 1: PRINT SPACES (40) 

IF o = 2 THEN v (1, a) - valore: s (1, a) = segno: LOCATE a, 1: PRINT valore;a$ (segno) 
IF o » 1 THEN v (2, ci) = valore: s (2, ci) = segno 
IF x AND 0=1 THEN x = 0: GOTO attesa 

IF x THEN prmossa 
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AmigaBasic è un linguaggio interprete che lascia 
un po’ a desiderare; per sostituirlo 
non c’è che l’imbarazzo della scelta. Stavolta diamo 
un \ occhiata all'alternativa offerta da GfaBasic 


S copo di queste note è di illustrare il 
modo in cui il GfaBasic colloquia con 
il drive. Dato che, finora, abbiamo parla- 
to di questo linguaggio in modo superfi- 
ciale, sarà bene aprire una parentesi per 
descriverlo brevemente. 

GfaBasic è un linguaggio estrema- 
mente veloce (quasi quanto il C) e pos- 
siede istruzioni molto sofisticate. Come 
altri moderni interpreti, è possibile otte- 
nere copie compilate del programma, va- 
le a dire che è possibile attivare una 
procedura (la compilazione, appunto) in 
grado di convertire, anche se parzial- 
mente, il codice sorgente in linguaggio 
macchina, notoriamente veloce. 

Con le seguenti righe, ad esempio... 

FOH a - 1 to 100000 
NEXT a 

...in Amigabasic occorreranno 40.8 se- 
condi per completare il ciclo, in GfaBasic 
solo 5.9. Se, poi, si compila il program- 
ma, il tempo richiesto si riduce a 4.4. 

L’utilizzo ottimale del linguaggio si ha 
nella stesura di programmi... intuitioniz- 
zati con interfacce semplici da capire. La 
gestione della grafica, grazie alle potenti 
istruzioni, risulta estremamente veloce 
(da 3 a 4 volte in più rispetto all’Amiga- 
Basic). 

Nella nostra banca dati (che potete 
contattare usando un modem) troverete 
la conversione del programma Spirogra- 
fo, pubblicato sul N. 77, in versione Gfa- 


Basic compilata, che funziona 3.5 volte 
più velocemente dell’Amigabasic. La ge- 
stione dei files sequenziali (argomento 
che. però, non viene qui preso in esame) 
è resa facile da istruzioni che permettono 
un agile spostamento aH’interno del file 
stesso. 

Le "chiamate" di libreria possono avve- 
nire direttamente, poiché la graphics li- 
brary, la dos library (e quasi tutte le altre) 
sono caricate automaticamente con l’in- 
terprete. 


Il programma 

N on viene presentata una parallela 
"traduzione" in Amigabasic in quan- 
to il listato è semplicissimo da compren- 
dere anche da chi non abbia mai visto in 
azione il GfaBasic (e, oltretutto, la sintas- 
si sarebbe quasi identica). 

In ogni caso è bene precisare che, a 
parte la gestione dei files relativi e dei 
Bobs, la sintassi ed i comandi dei due 
interpreti sono strepitosamente diversi. 
Nel circuito di pubblico dominio sono pre- 


Non solo AmiqaBasic 


I n tutte le confezioni di Amiga (mo- 
delli 500 e 2000) è presente un di- 
schetto (Extras) contenente il lin- 
guaggio interprete AmigaBasic. 

Chi lo usa, però, non è soddisfatto 
a causa delle notevoli limitazioni che 
presenta sia in fase di editing, sia in 
fase di esecuzione, sia per la vetustà 
delle procedure possibili. 

Da alcuni anni numerose software 
house propongono linguaggi interpreti 
alternativi, la cui sintassi rappresenta, 
ormai, un miscuglio (graditissimo da- 
gli utenti) di Basic, Pascal e, talvolta, 
C ed Assembly. 


GfaBasic è uno di questi linguaggi, 
molto usato da tutti coloro che, per un 
motivo o per l’altro, non si accontenta- 
no del linguaggio originale AmigaBa- 
sic (il quale, tra l’altro, vanta una pa- 
ternità di tutto rispetto: Microsoft). 

Pubblicheremo, di tanto in tanto, al- 
cuni esempi che meglio possano 
orientare i lettori nella scelta di lin- 
guaggi interpreti alternativi. 

Torneremo spesso, infatti, a trattare 
argomenti relativi al GfaBasic, appun- 
to, ed all’altro ben noto interprete 
(Amos), altrettanto sofisticato e velo- 
ce, particolarmente vantaggioso nella 
gestione di musica e suoni. 
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COMMENTO 

Gr Ali ASIC 

A. BASIC 

SCRITTURA 

OfO (il file non Qsit 

le) ?A . • 

25.; 3 

DÌO (il file esiste) 

10.3 

10.8 

a am 

0 . 3 

ti. 4 

r hi : 

0.6 

fi *7 

LETTURA 

D f 0 : 

1 . 

1 . 5 

RAM 


0.32 


Tabella 1 

La differenza di velocità non è elevata tra gli interpreti AmigaBasic e GfaBasic; 
tuttavia si deve pensare che eventuali efficienze di un linguaggio si scontrano 
inevitabilmente con la gestione intrinseca dell'hardware 


Tipo 

Simb. 


Mem . 

occupata Campo esist . 

Boolean 

i 

1 

byte 

(negli array TRUE-FALSE 



1 

bit) 


Byte 

1 

1 

byte 

0-255 

Word 

& 

2 

bytes 

-32767-32767 

Integer 

% 

4 

byte3 

-2147483648-2147483647 

Float 

# (°P* • ) 

8 

bytes 

2.225073858507e+-308 


Tabella 2 

Tipi di variabili nel GfaBasic per Amiga 


senti vari programmi di utilità in grado di 
operare le conversioni necessarie; si sot- 
tolinea che non sempre le conversioni 
ottenute sono perfettamente funzionanti, 
ma di certo provvedono a limitare, e di 
molto, il lavoro del programmatore. 

Il mini-programma presentato, che non 
è di alcuna utilità pratica(l), riempie un file 
relativo di 50 record secondo una regola 
semplice da comprendere: i primi 49 re- 
cord sono riempiti tutti dal carattere "a", 
l’ultimo di "b". 

In seguito viene letto il file appena me- 
morizzato ed effettuata la ricerca del ca- 
rattere "b" costringendo il computer, in 
pratica, ad esplorare l'intero file nel ten- 
tativo di individuarlo. 

Nella tabella 1 sono riportati i tempi di 
esecuzione del corrispondente program- 
ma in Amigabasic (che si può ottenere, 
come già detto, con poche modifiche al 
listato); le sintassi dei due interpreti (nel 
caso specifico della gestione di un file 
relativo) sono molto simili tra loro. Hanno 
soprattutto il compito di far comprendere 
al lettore che il GfaBasic non richiede 
tempi eccessivi per il suo apprendimen- 
to, a patto che, ovviamente, si conosca 
abbastanza bene AmigaBasic. 

Il file di nome Prova è stato salvato su 
un disco appena formattato (in due con- 
dizioni, riportate nella tabella 1), su una 
partizione da 1 7 megabyte piena al 7% 
di un Hard Disk A2090 dotato di control 
ler A2092 e nella Ram Disk (Chip Ram), 
utilizzando un normale(!) Amiga 2000 
senza espansioni o schede velocizzatrici 
di alcun tipo. Nel test effettuato sono 
state eliminate le istruzioni di ricerca 
(Instr) e di stampa per velocizzare il pro- 


cedimento. Si noti, innanzitutto, come il 
file venga aperto in modo identico. In 
GfaBasic in particolare, la prima lettera 
dopo Open (racchiusa tra apici) indica il 
tipo di file: O indica l’apertura in scrittura 
di un file sequenziale (che. se esiste già. 
viene cancellato); I apre un file sequen- 
ziale in lettura; A rende possibile l'aggior- 
namento di un file esistente (il puntatore 
viene automaticamente spostato alla fine 
del file): U apre un file esistente sia per 
la lettura che per la scrittura, mentre R si 
riferisce ai file relativi. 

In quest'ultimo caso il valore numerico 
che segue il path del file aperto indica la 
lunghezza complessiva del record. E’ 
importante far notare che un file può es- 
sere direzionato anche verso le periferi- 
che (porta seriale, parallela, Ram. fine- 
stra Shell o Oli e stampante). 

Procedendo, notiamo il comando 
Field, identico alla versione Amigabasic 
tranne per il fatto che se un "campo" 
contiene dati solamente numerici, lo si 
può dichiarare con AT(x) anziché con AS 
stringaS. sintassi che rende poi neces- 
saria la conversione dal formato numeri- 
co a quello stringa. 

Nel ciclo For Next si può osservare uno 
strano simbolo dopo la variabile d: è la 
barra verticale |. Il GfaBasic permette la 
gestione di ben 6 tipi differenti di variabili 
come indicato in tabella 2. Non spaven- 
tatevi: potete continuare ad usare le tra- 
dizionali variabili in virgola mobile che 
non richiedono simboli particolari ed evi- 
tano calcoli dovuti al campo di esistenza 
delle variabili. 

Comunque, più una variabile occupa 
memoria, più è lenta da gestire. Per 


quanto riguarda If ed Endif, si vede chia- 
ramente che il Then è superfluo. Ma co- 
me mai si usa Endif anche se vi è una 
sola istruzione dopo l’If? E qui entra in 
gioco l’editor del GfaBasic, che non 
permette di avere più di una sola istru- 
zione per linea. 

Se ciò può sembrarvi scomodo, cam- 
biate subito idea: i listati scritti in questo 
modo sono estremamente leggibili, an- 
che perché l’editor "indenta" automat- 
icamente tutte le istruzioni comprese tra 
i cicli. GfaBasic ha la sua forza nella 
possibilità di stesura di programmi estre- 
mamente strutturati, fattore che facilita 
un eventuale apprendimento del Turbo 
Pascal o del C (dove la strutturazione è 
obbligatoria). 

Il famigerato GoTo non è stato elimi- 
nato del tutto, ma grazie alle numerosis- 
sime istruzioni specifiche per i cicli (If ... 
Endif, For ... Next, Repeat ... Until, While 
... Wend, e la flessibile Do ... Loop) diven- 
ta inutile. 

A proposito dell’editor, è bene precisa- 
re che questo controlla la corretta sintas- 
si delle istruzioni in tempo reale dal mo- 
mento che non permette di lasciare una 
linea che contiene un errore di sintassi; 
verifica, addirittura, il numero dei para- 
metri passati e tutte le istruzioni che tira- 
no in ballo le librerie. 

La nostra breve chiacchierata introdut- 
tiva ha qui termine. Ci addentreremo in 
futuro in argomenti più complessi, che 
permetteranno però di evidenziare l'e- 
strema potenza (e velocità) del linguag- 
gio. Per ora l'importante è incominciare. 

Magari procurandosi il GfaBasic... 
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' SP I ROGRAFO GfaBasic Amiga 

IF a$<>"s" 

v-PI/80 

' (per la versione AmigaBasic 

d=p/2 

ENDIF 

' rileggere C.C.C. n.77) 

GOTO ruotafissa 

INPUT "3itplanes ( 1 -4 ) " ; ccol | 

main : 

ENDIF 

IF ccol 1 >2 

OPENW #C 

INPUT "Angolo di rotazione" ;d 

CLOSEW #0 

~Act i vateWindow (WINDOW (0) ) 

d=p/2-d*p/180 

OPENS 

TITLEW #0, "Autore Roberto 

ruotafissa : 

1,0, 0,640, 256, ccol 1 ,32768 

Morassi ... .Conversione di 

INPUT "n. denti ruota 

OPENW #0 

Mauro Bossetti" 

fissa"; rf 4 

ELSE 

DEFFN 

INPUT "n. denti ruota 

CLEARW *0 

x (x) «320+ (r-COS (x+d) +z*COS (-x*tl 

mobile"; rm4 

ENDIF 

+d) ) *1 .9 

t-rf 4/rm4 

SELECT ccol | 

DEFFN 

tl-t-1 

CASE 1 

y (x) -100- (r*SIN(x+d) +z*SIN(-x*tl 

IF t<=l 

ttl=l 

+d) ) 

GOTO ruotafissa 

CASE 2 

p=3 .1415 

ENDIF 

tt 1-3 

PRINT "Esempi di risposte 

decentramento : 

CASE 3 

Tempi : GFABASIC compilato 

INPUT "Decentramento"; de 

tt 1-7 

Amiga'oasic" 

z=dc*9C/t 

CASE 4 

PRINT "n, 90,50,0.3,1.05, f 

INPUT "Ampiezza linea";amp 

tt 1=15 

6.8 24.5" 

IF amp=0 

ENDSELECT 

PRINT " n , 120,28,0.5, 1.01, f 

amp»l . 1 

col 1-1 

9.5 35.2" 

ENDIF 

xl~(320+ (z+r) *COS (d) ) 

PRINT "s, 90,200, 12,0.8, l. 1, f 

mx=rf 4 

yl=100- ( (z+r) "SIN (d) ) 

4.1 15.2" 

FOR x=l TO rf & 

iniz=TIMER 

PRINT "n, 10, 7, 0.5,1, f 

IF x * r f 4 / rmi =INT(x*rf4/ rm4 ) 

FOR a=C TO mx STEP v 

9.4 34.1" 

mx=x* rf 4 /rm4 

x=FN x (a) 

PRINT "n, 137, 100, 0.6, 1, f 

x=r f 4 

y=FN y (a) 

137.2 504.8" 

ENDIF 

COLOR coll 

PRINT "s, 90, 351, 167, C. 5, 1.1, v 

NEXT x 

LINE xl *amp, yl *amp, x, y 

3.5 12.6" 

mx=2*PI *mx/t 

xl=x 

PRINT "3,360, 100,77,0.7, 1 .02, f 

r-90* (1-1/t) 

yi=y 

106.7 378.5" 

INPUT "Incremento fisso o 

IF collctti 

PRINT "s, 360, 100,77,0.7, l,v 

variabile (f/v)";a$ 

INC col 1 

3.5 12.7" 

v=nx/400 

ELSE 

INPUT "Rotazione asse (s/n)";a$ 

IF aS=" f " 

col | =1 



ENDIF 



NEXT a 



fine=TIMER 

OPEN "r", #1, "ram: Prova", 200 

tl=TIMER 

PRINT "Secondi"; ( f ine-iniz ) /200 

FIELD #1,200 A S c$ 

PRINT (tl-t) /200 

•INPUT "Ancora" ;aS 

FOR d | =1 TO 200 

t 'TIMER 

IF a$="s” 

a$=a$+ ,, a" 


CLEARW #0 

b$=b$+"b" 

FOR d|-l TO 50 

LOCATE 1,1 

NEXT d | 

GET #1, d| 

GOTO main 

c$=a$ 

e=INSTR(c$, "b") 

ENDIF 

t=TIMER 

IF «<>0 


FOR d|=l TO 49 

PRINT "Caratt. b in poaix.";e 


PUT #l.d| 

ENDIF 


NEXT d | 

c$=b$ 

NEXT d| 

tl=TIMER 

Spirografo In GfaBasic 

PUT #1,50 

PRINT (tl-t) /200 

Per esigenze di impaginazione alcune righe 
sembrano essere suddivise in più righi fisici. 

E’ ovvio, invece, che bisogna premere H tasto 

GfaBasic e file relativi 

Return solo dopo aver digitato l'ultimo 
parametro delle varie istmzioni 

Si noti 1 estrema semplicità richiesta dalla sintassi dell'interprete 
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Insieme 



Come nostra abitudine (anzi, siamo un po’ in ritardo 
rispetto al passato...) proponiamo, ai nostri lettori, di 
esprimere il proprio giudizio sulla nostra rivista: tutto 
ciò che volete comunicarci, quantomeno le opinioni 
più importanti, potete farcele conoscere compilando il 
semplice questionario di queste due pagine; Non ab- 
biate timore a staccare il foglio: seguendo la linea 
tratteggiata eviterete che la pagina "opposta" si di- 
stacchi dal fascicolo. Chi lo desidera, ovviamente, 
potrà inviare la fotocopia riproducente l'inchiesta. 


Domanda N. 1 (esperienze precedenti 


Da quale esperienza informatica provieni? 




•^Autodidatta (hobby, club, amici, riviste, ecc.) 

-J Ho seguito un corso (scuola, università, corrispond.) 
J Lavoro nel settore specifico 


Dom.N. 2 (computer usati nel passato 


Quali computer hai usato in precedenza? 

^11 C/64 (oppure Vie 20. C/128. C/16, .4, Pet) 
-J Lo Spectrum (oppure Msx. QL. vecchi Apple) 
□ Amiga oppure Ms - Dos 


l 


Dom.N. 3 (computer usati OGGI] 

Quali computer usi abitualmente? 


«I Quello/i indicato/i nella domanda N.2 


X 


Amiga 


LI Ms - Dos 



Dom.N. 4 (computer che userai 


Quale computer pensi di usare nel corso del 1992? 


-I Quello/i indicato/i nelle dom. 2 e/o 3 




Amiga 


•J Ms - Dos 


Dati del lettore (compilazione facoltativa) 

Cognome 


Nome 


Indirizzo 


(CAP) Città 
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Domanda N. 5 (confiqurazione) 


Domanda N. 6 (memoria RAM) 

Quanti drive ha il sistema indicato nella dom. n. 4? 

-J 1 da 5.25 2 (o più) da 5.25 

Q 1 da 3.5 -J 2 (o più) da 3.5 

1 J Hard disk Megab. (specificare) 

Di quanta RAM dispone il sistema (ind. in doman. 4)? 

□ 500 K(se Amiga) oppure 640 K(se Ms - Dos) 

D 1 mega 

□ N. megabyte (specificare): 




Domanda N. 7 (stampante) 

Quale stampante userai con il sistema di dom. 4? 

J Un modello a 9 aghi (oppure nessuna) 

Li Un modello a 24 aghi (o comunque di medio prezzo) 

J Una laser (o un modello di prezzo elevato) 


Domanda N. 8 (modem) 

Nel 1992 disporrai di un modem? 

□ No 

□ Sì, un modello medio (prezzo fino a 400 mila lire) 

LI Sì . un modello di elevate prestazioni (oltre le 500 mila) 




Dom. N. 9 (prezzo della rivista) 

Saresti disposto all’aumento del prezzo di copertina 
se decidessimo di inserire un dischetto (ovviamente 
del formato valido per il computer indie, in dom. 4)? 

J No. in nessun caso il prezzo deve aumentare 

□ Sì, purché contenga anche giochi e simili 

J Sì. purché contenga anche s/w di tipo professionale 

J Sì, purché contenga anche utility 

J Sì, purché il prezzo di copertina non risulti mai 
superiore a L. (indicare cifra max.) 

N.B : è possibile barrare più risposte, purché non in contraddizione tra di loro 


Dom.N. 10 (Araomenti preferiti) 

A quali argomenti vorresti si dedicasse più spazio? 

□ Recensioni di software e/o hardware 

□ Didattica (linguaggi C, Basic, Pascal. Assembly, ecc.) 

_l Uso ottimale di programmi ed utility commercializzati 
(Word processor, DTP, Spreadsheet. Database, ecc.) 


Un’importante precisazione 

Qrima di rispondere alle domande indicate, ricorda che 
■ molte di queste si riferiscono al sistema computerizza- 
to indicato nella domanda N.4 (quello, cioè, che ritieni di 
utilizzare in prevalenza nel corso del prossimo anno 1 992). 
Se ritieni che continuerai ad usare il computer che usi 
tuttora (segnalato nella domanda n. 3), ovviamente, le 
risposte che fornirai dovranno riferirsi a quest’ultimo. 

Inserire in busta chiusa, affrancare e spedire a: 

Systems Editoriale 

Via Mosè 22 

cap 20090 Opera (Mi) 
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Le equazioni: prima o poi qualsiasi studente 
ha a che fare con esse, o le ha già incontrate 

nel corso dei suoi studi. 


L e equazioni, in genere, sono tutt’altro 
che semplici entità astratte generate 
dalla mente schizoide dei matematici; la 
maggior parte (per non dire la totalità) dei 
problemi di matematica, fisica, elettrotec- 
nica, meccanica, eccetera si risolve im- 
postando la relativa equazione. 

Le prime equazioni che si incontrano 
negli studi sono quelle di primo grado, del 
tipo ax + b = 0, la cui soluzione è talmente 
banale che non vale la pena di parlarne. 

Vi sono, poi, quelle di secondo grado 
(del tipo ax 2 + bx + c = 0) che, come è 
noto si risolvono mediante... 

X = (-b +- Sqr (D)) / 2a 


...in cui D = k? - 4ac è definito come 
"discriminante". Le radici reali XI e X2 
possono risultare reali distinte, coinci- 
denti (XI = X2) o complesse coniugate 
XI +- jX2. 

Il microprogramma di queste pagine 
(utile per chi ha comprato mezz’ora fa il 
suo primo computer...) risolve un sistema 
di equazioni di secondo grado. 

I "veri" problemi, però, cominciano 
quando si studiano le equazioni di terzo 
grado. 

La ricerca di una formula in grado di 
estrarre le radici di un’equazione di grado 
superiore al secondo (di cui si conosces- 


sero i soli coefficienti ed il termine noto) 
fu uno dei problemi affrontati da un'intera 
generazione di matematici, tra cui si di- 
stinse l’italiano Tartaglia. 

Il metodo insegnato nelle scuole per 
risolvere il problema si basa sulla regola 
di Ruffinl, che però funziona solo se si 
riesce a trovare (a tentoni) almeno una 
delle radici dell’equazione. Questo è un 
limite inaccettabile, tanto più che la ma- 
tematica, come è noto, tutto è fuorché 
una scienza empirica. 

Un metodo che permette di determina- 
re con precisione le radici dell’equazione 
è il metodo di Cardano, che è tanto com- 
plicato da scoraggiare una sua applica- 
zione "manuale". 

Se il computer lavora 

U n algoritmo, per quanto sia comples- 
so, può esser sviluppato da un qual- 
siasi computer, pur se programmato in 
Basic. 

Avrete capito che dovete limitarvi a 
trascrivere uno dei due listati Basic di 
queste pagine; potete scegliere tra la 
versione AmigaBasic oppure Gw Ba- 
sic. Il primo dei due è un programma 
davvero completo, mentre il secondo, ri- 
dotto all’osso, può essere digitato in Gw 
Basic, oppure in AmigaBasic e persino 
sui vecchi C/64 - 128. 

Nel listato AmigaBasic potete digitare 
i simboli di elevazione a potenza (al qua- 
drato e al cubo) premendo Alt + 2 oppure 
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Alt + 3. Con Amiga, infatti, la particolare 
combinazione di tasti (Alt + 1 . 2. 3) ripro- 
duce, rispettivamente, i tre valori legger- 
mente spostati in alto (esponenti). Il pro- 
gramma rappresenta, inoltre, un’occa- 
sione unica per imparare l’uso delle fun- 
zioni stringa in Basic e per visualizzare 
un messaggio superando le tipiche limi- 
tazioni del comando Print. 


Il programma 

P er spiegare integralmente il metodo 
di Cardano non basterebbe l’intero 
fascicolo; si può tuttavia affermare che 
l’algoritmo si basa sul presupposto che i 
coefficienti dei termini della equazione 
siano diversi da zero. 

Se, infatti, uno solo di essi fosse egua- 
le a zero, l’equazione sarebbe, in realtà, 
di secondo grado e, come tale, risolvibile 
con un programma meno complesso. 


Nel metodo usato, tutti i termini vengo- 
no divisi per il coefficiente del termine di 
terzo grado. Supponendo che il termine 
di secondo grado si annulli per un certo 
valore di X, si riesce a ridurre l’equazione 
in forma normale e le soluzioni vengono 
valutate in base al valore assunto dal 
discriminante. 

Viene dapprima definita la variabile ER 
= 1 / 1000000; quindi tutti i valori che 
differiscono per meno di ER sono da 
considerare come soluzioni coincidenti; i 
valori vengono testati dalla variabile C. 

Un'equazione di terzo grado presenta 
sempre tre soluzioni, inquadrabili in vari 
casi: tutte e tre reali; una reale e due 
complesse coniugate; una reale e due 
coincidenti. Il metodo di Cardano è in 
grado di risolvere qualsiasi equazione di 
terzo grado e, se si pensa che è stato 
ideato quando i computer non esisteva- 
no, ci si può rendere conto della grandez- 
za del suo ideatore. 


Come gira il programma 

D opo il Run digitate, in risposta alle 
domande sul valore dei coefficienti 
di X 3 . X 2 . X ed il termine noto, rispettiva- 
mente: 

2, 5, -2, -5 

Se non avete commesso errori, do- 
vranno risultare le radici XI = 1 (R), X2 = 
-2.5 [R], X3 = -1 [R], ove [R] significa che 
il risultato è Reale, [I] Immaginario. 

Con a = 1, b= 1, c = -2, d = -2, le radici 
saranno XI = Sqr (2) [R] , X2 = -$QR(2) 
[R], X3 = -1 [R]. 

Ancora, con a = 1 , b = 1, c = 1, d = 1, 
le radici saranno XI = -1 [R], X2 = 0 [I], 
X3 = 1 [I]. I risultati saranno di pochissimo 
approssimati, cosa che potete evitare 
usando Print Using in luogo di Print. 

Infine, con a = 1, b = 1, c = -2, d = -1, 
le radici saranno XI = 1.24698 [R], X2 = 
-1 .801938 [R], X3 = -0.4450419 [R]. 


' Matematica per AmigaBasic by 
' by Ugo Spezza 1991 
# EQUAZIONI DI TERZO GRADO 

SCREEN i, 640/ 256/ 2 # 2: WINDCW 2, , 0, 1 

CLS : PALETTE 0/ 0, 0, 0: PALETTE 1, 0/ .8/ 0 
PALETTE 2, 0/ 1/ 1: COLOR 2 : q$ = CHR$ (13) 

PRINT q$ f « SOLUZIONE DI EQUAZIONI Dt TERZO GRADO" + c$ * q$ 

INPUT " Coefficiente di x3 d 
PRINT : INPUT " Coefficiente di x2 f 
PRINT : INPUT " Coefficiente di x g 

PRINT : INPUT " Termine noto h 

w * SGN (f) + SGN (g) + SGN (h) : IF w = 1 THEN w = 2 

IF w = -1 THEN w = I 
CLS: LOCATE 4/ 3 

PRINT "FORMA ALGEBRICA DELLA EQUAZIONE: "; 

raS = STR$ (d) + "x3" + STRS <f) + "x2" + STRS (g) + "x" + STRS (h) 

FOR q = 1 TO w 

sp = INSTR (2/ ra$/ " ") 

MIDS (raS/ sp) « " * ” 

NEX7 

PRINT ra$ + M * 0” 

GOSUB rout inecalcolo 

LOCATE 10/ 10: PRINT "SOLUZIONI DELLA EQUAZIONE: " + q$ + qS 

COLOR 3: PRINT " XI = "; xl, xl$ * q$ : PRINT " X2 = x2, x2$ + q$ 

PRINT " X3 - x3/ x3$ : LOCATE 25, 3 

PRINT" [ENTER] PER CONTINUARE" + q$ + q$ + " (ESC) PER USCIRE" 

LINE (10/ 60)- (340/ 150), 2, b 

1 a$ = INKF.YS: IF a$ - CHR$ (27) THEN SCREEN CLOSE 1: END 

IF a$<>q$ THEN 1 

RUN 


Prima parte del listato AmigaBasic 
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routinecalcolo : 

e = .0C00001: pi - 3.14159265359# 
f = f/a: g = g/d: h = h/d 
f * f / 3 : d = (g/3) - (f A 2) 

k = h- ( f *g) + (2*f A 3) 
c - (4*d A 3) + (k A 2) 

IF e>ABS (c) THEN coincidente 
IF c>0 THEN nonredle 
a = 2* SOR (-d) 
x — k/ (2 *d*SQR (-d)) 
d = pi/2 

b = -ATN (x/SQR ( — x * x fi)) - d 
k * ATN ( . 5/SQR (.75) ) 

g * a*S!N (d- (b/3) ) : h = -a-SIN (k ♦ (b/3) ) : i - -a*SIN (k- (b/3) ) 

g » g-f: h = h-f: i = i-f 
xl ** g : x2 = h : x3 = i 
x 1 $ - "Reale": x2$ - x'.S: x.3$ - xl$ 

RETURN 
nonreale : 

c = SQR (c) : a = (c-k)/2: b = - (c + k)/2: c - 1/3 

a = ABS (a) A c*SGN (a) 

b - ABS (b) A c*SGN (b) : c = SQR (3)/2 

xl = a + b-f: xlS = "Reale" 

x2 = -.5* (a + b)-f: x2$ - "Immaginario" 

x3 - c*ABS (a-b) : x3$ _ x2$ 

RETURN 
coincidente : 

IF e>ABS (d) THEN xl = -f: x2 -f: x3 -f: xl$ = " ": x2$ - " ": x3$ 
RETURN 

a = -ABS ( (k/2) A (1/3) ) *SGN (k) 

xl = 2*a-f: x2 = -a-f: x3 = x2 

xl$ = "reale": x2$ "Coincidente": x3S x23 

RETURN 


Seconda parte del Isitato AmigaBasic 


La maggior parte delle equazioni di 
terzo grado sono simili alle ultime due. e 
quindi non risolvibili con la regola di Ruf- 
fini. 

Le stringhe in Basic 

Come già detto, il programma Amiga- 
Basic è anche un ottimo banco di studio 
per coloro che vogliono imparare la ge- 
stione del testo e delle stringhe. 

All’inizio vengono definiti i colori con 
l’istruzione Palette. Se tale ''preziosi- 
smo” può apparire inutile, pensate che. 
nel caso in cui (con Preferences) siano 
stati alterati i colori base, il testo o alcune 
parti del programma potrebbero non es- 
ser più visibili. 

Ma veniamo alle stringhe: vedremo co- 
me, usando il solo comando Print, visua- 
lizzare una qualsiasi formula algebrica in 


un modo del tutto identico a quello di un 
qualsiasi testo di matematica, rispettan- 
do cioè il posizionamento degli esponen- 
ti. 

La funzione Str$(n) (in cui n è un valo- 
re numerico), fornisce una stringa uguale 
al numero; ad esempio, ponendo A$ = 
Str$(54). ed eseguendo Print A$. sarà 
visualizzata la stringa 54 poiché, appun- 
to. A$ = "54 , \ 

Inserendo opportunamente i caratteri 
visualizzabili con la pressione dei tasti 
Alt + 2 e Alt + 3. pertanto, si può ottenere 
la stringa ra$ che. alla fine, risulterà for- 


mata dai simboli x J ', x 2 . x e da altri valori 
numerici qualsiasi. 

C'è da risolvere il problema che il co- 
mando Print presenta quando stampa i 
numeri positivi; questi vengono visualiz- 
zati preceduti da uno spazio e non dal 
simbolo più (+). 

Lo spazio vuoto, però, altro non è che 
un carattere Ascii (ed esattamente quello 
cui corrisponde il codice 32) e come tale 
può essere trattato. Dal momento che 
siamo in presenza di un'equazione, ed i 
termini positivi possono essere al massi- 
mo tre, altrettante possono essere le 


10 REM Equaz. II grado 

20 INPUT "COEFFICIENTI A. B, C ” ; A, B, C 
30 D = B A 2 - 4*A*C: PRINT 

40 IF D<0 THEN PRINT "RADICI IMMAGINARIE: * ; -B/2/A; " + - j" ; (-D) A (1/4 ) : END 
50 IF D«0 THEN PRINT "RAD ICE UNICA: '* ; -B/2*A: END 
60 PRINT "RADICI: (-B-SQR (D) ) /2 *A, (-B+SQR (D) ) /2*A 
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5 REM (EQUAZIONI DI TERZO GRADO) 

10 REM Matematica per Computer Ms - Dos 
20 REM Ugo Spezza 1991 

30 REM 

40 CLS : INPUT "Coefficiente di x3 d 
50 PRINT : INPUT "Coefficiente di x2 "; f 
60 PRINT : INPUT "Coefficiente di x g 

60 PRINT : INPUT "Termine noto " ; h 
70 q$ - CHR$ (13): GOSUB 100 

80 PRINT q$ ; q$; "SOLUZIONI DELLA EQUAZIONE: q$; q$ 

90 PRINT "XI = "; xl, xl$; q$: PRINT "X2 - x2, x2$; q$ 

95 PRINT "X3 = "; x3, x3$: END 

100 e = .0000001: pi = 3.14159265359# 

110 f = f/d: g = g/d: h = h/d 
120 f - f/3: d = (g/3) - (f A 2) 

130 k = h- (f*g)+ (2*f A 3) 

140 c = (4*d A 3) + (k A 2 ) 

150 IF e>ABS (C) THEN 340 
160 IF c>0 THEN 270 
170 a = 2*SQR (-d) 

180 x - k/ ( 2 *d* SQR (-d) ) 

190 d = pi/2 

200 b » -ATN (x/SQR (-x*x+l))+d 
210 k = ATN ( .5/SQR ( .75) ) 

220 g - a*SIN (d- (b/3) ) : h = -a*SIN (k+ (b/3) ) : i = -a*SIN (k- (b/3) ) 

230 g = g-f: h = h-f: i = i-f 

240 xl * g : x2 - h : x3 » i 

250 xl$ * "Reale": x2$ = xl$: x3$ = xl$ 

260 RETURN 

270 c = SQR (c) : a = (c-k)/2: b = - (c+k)/2: c = 1/3 

280 a - ABS (a) A c*SGN (a) 

290 b « ABS (b) A c*SGN (b) : c = SQR (3)/2 
300 xl = a+b-f: xl$ = "Reale" 

310 x2 = -.5* (atb)-f: x2$ = "Immaginario" 

320 x3 - c*ABS (a-b) : x3$ » x2$ 

330 RETURN 

340 IF e>ABS (d) THEN xl = -f: x2 = -f: x3 = -f: xl$ = " " : x2$ = " ": x3$ = 
350 RETURN 

360 a = -ABS ( (k/2) A (1/3))*SGN (k) 

370 xl = 2*a-f : x2 - -a-f: x3 - x2 

380 xl$ = "reale": x2$ = "Coincidente": x3$ = x2$ 

390 RETURN 


La versione Gw * Basic 


stringhe spazio da sostituire. Occorre al- 
lora impostare una ricerca delle stringhe 
spazio servendosi della funzione N = 
Instr (x, A$, B$) ove x è il punto di 
partenza della ricerca della stringa A$ 
airinterno della stringa B$ (di maggiore 
dimensione). 

Nel nostro caso x = 2 dal momento che 
possiamo fare a meno del segno del 
coefficiente di x 3 . Si imposta quindi un 
ciclo For... Next, vengono contati i numeri 
positivi mediante Sgn(x), e una volta tro- 


vata la stringa spazio, questa viene so- 
stituita con la stringa usando la fun- 
zione Basic MID$ (b$, n) = C$. 

Nel nostro caso [MID$ (ra$, sp) - V? 
b$ è la stringa da esaminare, c$ è la 
stringa sostitutiva ed n è il punto di par- 
tenza della sostituzione, numero ottenu- 
to da lnstr(), come già detto. 

Con il semplice linguaggio Basic, per- 
tanto, si possono ottenere formattazioni 
di testi di qualunque tipo, alla pari di 
complessi linguaggi ad alto livello (C, 


Pascal...). Potete addirittura creare ca- 
ratteri personalizzati con la utility FED 
(disco Extras) e caricarli nel sistema con 
FF (directory C del Workbench), ma vi 
occorrerà molta pazienza. 

* 

Per esercizio, provate ad eliminare le 
stringhe "1" che vengono a crearsi in 
talune espressioni; difatti, anche se la 
forma 1 x 2 è algebricamente corretta, sui 
testi si usa omettere ri" riferendosi ad 
un più sbrigativo x 2 . 
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Un salto qua ed uno là 
Vorrei sapere quali sono le 
differenze tra le istruzioni 
Assembler Bsr e Jsr, visto 
che servono entrambe per 
saltare ad un sottoprogram- 
ma. 

(M. Mattai - S. Benedetto V.S.) 

D a un punto di vista forma- 
le, le due istruzioni svol- 
gono effettivamente lo stesso 
lavoro: depositano sullo 
Stack l'indirizzo di ritorno, 
eseguono la subroutine spe- 
cificata dall’operando, quindi 
"ripescano” l’indirizzo lasciato 
sullo Stack e tornano ad ese- 
guire l’istruzione che segue 
immediatamente quella di sal- 
to. 

La differenza sta nel fatto 
che Bsr (Branch To Subrou- 
tine) opera un salto relativo, 
mentre Jsr (Jump To Subrou- 
tine) provoca un salto assolu- 
to. 

Detto più semplicemente, 
Jsr funziona in pratica come 
Jmp (a parte il ritorno), ovvero 
opera un Jump incondiziona- 
to alla locazione di memoria 
specificata, che potrà così es- 
sere una qualunque di tutto 
l’ambito indirizzatile dal Mi- 
croprocessore (per il 68000 = 
16 Mb). Il che significa, in ter- 
mini pratici, che non sarà ne- 
cessario preoccuparsi di nul- 
la. 

Bsr, invece, è più simile alle 
istruzioni di salto condiziona- 
to, nel senso che sfrutta uno 
"scostameto" (offset) dal suo 
indirizzo corrente per stabilire 
l'indirizzo di arrivo. 

Banalmente: si supponga 
che all’indirizzo X si trovi una 
istruzione Bsr Miaroutine. 
Generalizzando, l’istruzione 
Bsr funziona come se calco- 
lasse la differenza tra la loca- 
zione della label Miaroutine e 
dell’indirizzo X (differenza che 
chiameremo Y), e di fatto di- 
cesse: salta di Y locazioni (in 
avanti o all’indietro) a partire 
da quella attuale. 




L’effetto risulterebbe ugua- 
le a quello ottenibile con Jsr, 
ed anzi leggermente più velo- 
ce (10 cicli macchina contro 
1 4), ma con un limite ben pre- 
ciso: poiché per memorizzare 
lo scostamento è disponibile 
al massimo una word di 1 6 bit 
(2 byte), questo non può su- 
perare i 32 Kb in avanti o al- 
l’indietro. 

Un limite che può sembrare 
tutto sommato molto ampio, 
ma non si dimentichi che, se 
per esempio viene richiamata 
una funzione di libreria, non si 
può sapere a priori dove que- 
sta verrà allocata. 

Di conseguenza, Bsr può 
essere adoperato soprattutto 
per salti nell’ambito di routi- 
nes la cui brevità sia garantita, 
mentre per tutti gli altri casi va 
sfruttata Jsr. 

Considerato poi il guada- 
gno davvero minimo in termini 


di velocità, il consiglio è di ri- 
correre sempre a Jsr, almeno 
fino a che non si è del tutto 
padroni del sistema operativo 
di Amiga. 

Ammesso che si possa mai 
diventarlo... 

Un Ask migliore 
Adoperando Ask in un 
batch file per richiedere un 
input, si può fare in modo 
che accetti qualcosa di di- 
verso da "Y" e "N"? 

(Sergio Licastro - Palermo) 

C on il comando incluso nel 
disco Workbench, no. 
Uniche alternative: riscrive- 
re da sé il comando, o ricorre- 
re ad Arp, il completo sistema 
di Pubblico Dominio che so- 
stituisce con efficienza deci- 
samente maggiore molti dei 
normali comandi del Dos (ma 
non solo). 
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;crea una directory da Shell con 
/associata una icona-cassetto 

.Key nome 
If <noir.e>X eq X 

Echo "Manca il nomo della directory!" 
Quit 
Endif 

Makedir <nome> 

Copy Workbenchl . 3 : empty .info <nome> .info 


Il comando Ask implemen- 
tato da Arp, infatti, consente di 
definire liberamente i due ter- 
mini accettabili in input, con la 
possibilità addirittura di non li- 
mitarli ad un solo carattere. 
Giusto per fare un esempio, 
adoperando la forma... 

Ask "Rispondi" "S" "N" 

...verrebbe stampata la 
stringa " Rispondi ", dopodiché 
immettendo S verrebbe setta- 
ta la condizione Warn come 
di consueto, mentre N rispon- 
derebbe a Not Warn. Piutto- 
sto che Se N potrebbero an- 
che essere adoperati Si e No, 
nel qual caso andrebbero ob- 
bligatoriamente digitati in in- 
put per esteso. A differenza 
dell'Ask di Amigados, si 
avrebbe inoltre il vantaggio 
che, in caso di errata digita- 
zione dell’input, questo ver- 
rebbe riproposto con la se- 
gnalazione delle due scelte 
possibili. 

Per adoperare Ask oppure 
tutti i comandi di Arp, è suffi- 
ciente procurarsi il pacchetto 
software dalle fonti più comu- 
ni del pubblico dominio (so- 
prattutto le varie bbs), e co- 
piare nella directory Libs del 
disco Workbench il file 
Arp.library. Così facendo, ri- 
sulteranno eseguibili tutti i co- 
mandi che si saranno preven- 
tivamente copiati nella direc- 
tory C di sistema, in modo au- 
tonomo o sfruttando il pro- 
gramma Arplnstall, che prov- 
vede ad installare automat- 
icamente tutti i comandi e le 
risorse di Arp. 


Problemi di rad 
Sono passato da un Amiga 
500 ad un 2000 con 1 Mega- 
byte di chip ram, e non rie- 
sco più ad installare una 
Ramdrive recuperabile 
(Rad) resistente al reset. 
Ovvero, la Rad si installa, 
ma dopo il reset il sistema 
ne ignora la presenza. Se 
possibile, vorrei anche sa- 
pere il significato dei sim- 


boli posti frontalmente nel 
tastierino numerico. 

(Giampiero - Roma) 

D ue risposte molto brevi. 

Per quanto riguarda la 
Rad, il problema è proprio le- 
gato alla configurazione di 
memoria con un Megabyte 
tutto di Chip Ram. In questa 
condizione, oltre alle normali 
procedure di installazione, è 
indispensabile che venga pri- 
ma eseguita una istruzione 
Setpatch R. preferibilmente 
da inserire nella startup se- 
quence. Si badi che, nel file di 
avviamento del disco Wor- 
kbench 1 .3, un comando Set- 
patch è normalmente presen- 
te, ma non sempre seguito dal 
parametro R. 

Quanto alla seconda do- 
manda, cui peraltro si è già 
risposto in altra occasione, si 
tratta semplicemente di sim- 
boli utilizzabili in emulazione 
Ms-dos, nel caso di (vecchi) 
programmi che non preveda- 
no l’uso di una tastiera este- 
sa, ovvero dotata di specifici 
tasti per il movimento del cur- 
sore, per la paginazione, ec- 
cetera. 

Shell e icone 

Non c’è un modo, da Shell, 
per creare una directory col 
tipico disegno a cassetti- 
no? 

(A. Gian none - Roma) 

L a domanda è un po’ ambi- 
gua, ma vediamo di venir- 
ne a capo ugualmente. 

Da ambiente Shell, l’unico 
modo per creare una directory 
(escludendo casi particolari) 
consiste nell’adoperare il co- 
mando Makedir. In tal modo, 
però, l'unico modo per visua- 
lizzarla consiste nell’impartire 
List (oppure Dir) sempre da 
ambiente Shell, mentre da 
Workbench non sarà possibi- 
le accedervi, né tantomeno 
vederne la classica icona a 
cassetto, che non viene crea- 
ta assieme alla directory. 


L’icona, d’altra parte, non è 
che un file di nome analogo a 
quello della directory creata, 
ma con suffisso ".info", e ca- 
ratteristiche particolari che ne 
fanno una icona di tipo ’Dra- 
wer". Collegare questo tipo di 
icona ad una directory, non 
costituisce certo un problema: 
basta prelevarne una qualsia- 
si (non necessariamente con 
disegno a cassetto) purché di 
tipo Drawer, e copiarla con il 
nuovo nome. 

Per chi è alle prime armi, e 
non vuole cimentarsi in impre- 
se complicate (mica tanto, pe- 
rò...), una icona del genere è 
sempre a disposizione: la di- 
rectory Empty del disco Wor- 
kbench. Si supponga di voler 
creare una directory di nome 
Test nella Ram Disk. Basterà 
in pratica impartire un coman- 
do... 

Makedir Ram: test 

...e farlo poi seguire da... 

Copy Workbenchl . 3 : 

Empty. info Ram: Test . info 

...(digitato su un unico rigo) 
per avere tanto la directory 
che la relativa icona-cassetto 
manipolabile anche a suon di 
mouse. Piuttosto che ripetere 
questa procedura ogni volta, 
è consigliabile farsi un co- 
mando apposito, ovvero edi- 
tare un brevisimo file batch di 
nome (per esempio) Mkdir, 
strutturato come appare nel 
riquadro a parte. 

Una volta copiatolo con un 
qualsiasi editor Ascii (in man- 
canza d’altro, con Ed) e me- 
morizzatolo nella directory S, 
può essere eseguito con... 


Execute Mkdir Nomedir 

...con Nomedir eventual- 
mente comprensivo di percor- 
so. In ogni caso, oltre alla di- 
rectory, verrà creata anche 
una icona-cassetto identica a 
quella visibile con nome Em- 
pty nel disco Workbench. Se 
anche quest’ultimo non fosse 
presente nei drive, un reque- 
ster di sistema ne chiederà 
l’inserimento al momento op- 
portuno. 

Come ovvio, nulla vieta che 
il file-icona venga prelevato 
da qualche altro disco, inse- 
rendone il nome al posto di 
quello da noi adoperato nel 
batch file (Workbenchl .3). 
Non si dimentichi inoltre che, 
adoperando sul file batch un 
comando... 

Protect Mkdir +S 

...lo si renderà autoesegui- 
bile, per cui potrà essere tra- 
sferito nella directory C, e in- 
vocato esattamente come se 
si trattasse del normale Make- 
dir, vale a dire senza adope- 
rare Execute. 

Chi fosse proprio alle prime 
armi, si limiti a mettere in pra- 
tica quanto appena detto, ma- 
gari andando a ripescare (se 
il caso dal nostro servizio ar- 
retrati) il numero 77 della rivi- 
sta, che spiega la strutturazio- 
ne di un file batch. 

Richieste prezzi 
Ho letto, sulla vostra rivista, 
la recensione su xxxx; po- 
treste dirmi il prezzo del 
prodotto? 

V isto l’incremento di lettere 
del genere, che vanno ad 
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Un tasto... ricorrente 
Come si ottiene il carattere di espo- 
nente ( A ) che non riesco a trovare sul 
mio Amiga con tastiera italiana? 

(Giacomo Longo - Messina) 

C ome già scritto in altre occasioni, è 
necessario mantenere pressati 
contemporaneamente i tasti Shift ed 
Alt, ed agire sul tasto 6 posto in cima 
alla tastiera (non sul tastierino numeri- 
co). 

Tanta, troppa roba 
Gradirei dei chiarimenti sulle Libre- 
rie, sulla Startup-Sequence e sulle 
Directory: a cosa servono ? Siccome 
presumo che tali argomenti siano 
già stati trattati, mi potreste fornire 
quali numeri arretrati acquistare? 
Perché non pubblicate una paginet- 
ta con elencati i numeri arretrati e gli 
argomenti in essi trattati? 

(E. Manzoni - Pioltello) 

L a risposta ad una simile domanda. 

come intuito dallo stesso lettore, ri- 
chiederebbe almeno un paio d anni di 
pubblicazioni mensili. Il che, però, non 
vuol dire che siano argomenti panico- 
larmenti complessi: se si esclude l’uso 
delle librerie di sistema, che certamen- 
te richiedono un impegno non proprio 
irrisorio, e che comunque vanno affron- 
tate con già una certa dimestichezza 


alle spalle, gli altri temi accennati rien- 
trano in fin dei conti nel vasto ambito di 
Amigados, ampiamente trattato (anche 
in dettaglio) sulla nostra rivista. 

Il consiglio è immediato: consultare 
quanti più articoli possibile che riguar- 
dano il mondo "facile" di Amiga, ovvero 
il Dos e il Basic, e solo in un secondo 
tempo prendere contatto con il più com- 
plesso ambiente fatto di librerie e lin- 
guaggi non proprio semplici come il C 
o l'Assembler. T utto ciò, sia ben chiaro, 
se non si ha alle spalle alcuna espe- 
rienza computereccia. In caso contra- 
rio, potrebbe anche essere possibile un 
"salto" immediato verso lidi più ostici. 

Impossibile riassumere qui i numeri 
della rivista che si sono occupati di Dos, 
Basic e Librerie: praticamente quasi 
tutti, da quando si è cominciato a par- 
lare di Amiga. In particolare, dal n. 75 
al n. 82 è stato sviscerato tutto il possi- 
bile su Amigados, ma anche altri artico- 
li. apparentemente rivolti ad applicazio- 
ni differenti, possono contenere infor- 
mazioni utili per giungere ad una com- 
prensione globale del computer. 

La proposta di pubblicare una specie 
di sommario generale potrebbe essere 
una idea fattibile, si vedrà, comunque 
qualcosa del genere è già presente nei 
floppy Amigazzetta che saltuariamen- 
te vengono pubblicati dalla nostra Edi- 
trice. 


Cominciare non è facile... ma nean- 
che impossibile. 

Solo d a copiare 

Vorrei sapere cóme realizzare il gio- 
co di pag.68 delia rivista n.81. Forse 
inserendo il dischetto Extra? 

(Damiano Spinosa - Gaeta ) 

I l listato cui fa riferimento la lettera 
("Indovina, indovinello"), contiene in 
pratica solo 3 righe non compatibili con 
Amigabasic, riservate a chi adopera 
Quick Basic su computer Ibm compati- 
bili. Escludendo queste tre righe, peral- 
tro super evidenziate il testa al listato, 
il resto va semplicemente copiato nel- 
l’editor di Amigabasic. 

Ovvero, vista la perplessità del no- 
stro lettore alle prime armi, occorre: 

* Attivare Amiga col normale disco 
Workbench. 

* Inserire il disco Extras, aprirne l'ico- 
na, e biclickare su Amigabasic. 

* Copiare il listato nella finestra di 
editing (list). 

A queste banali istruzioni, ne va però 
aggiunta una fondamentale: prima di 
ogni altra cosa, dare almeno un’occhia- 
ta superficiale alla manualistica fornita 
in dotazione al computer. Non sarà il 
massimo della chiarezza, ma le infor- 
mazioni più elementari in fondo sono 
sufficientemente trattate. 


intasare i cestini strategica- 
mente disposti in redazione, è 
d’obbligo un consiglio: 

telefonare direttamente 
alle ditte che commercializ- 
zano il prodotto, chiaramen- 
te indicate con tanto di indiriz- 
zo e numero telefonico nelle 
pagine della rivista. 

Non si tratta di cattiva vo- 
lontà (...), ma di fatto i prezzi 
cambiano spesso (di solito, in 
ribasso) anche nel giro di una 
settimana, per non parlare di 
eventuali sconti od occasioni. 

Su questi ultimi, pertanto, 
solo un contatto diretto può 
garantire la tempestività d'in- 
formazione. 


Dos e Appen d 
Come posso fare ad "incol- 
lare” altro testo in fondo ad 
un file già esistente senza 
perderne il contenuto? 
(Marcello Fiaschi - ??) 

I l tema, a quanto pare, è piut- 
tosto ricorrente, nonostante 
ne sia stato fatto cenno nella 
rubrica Amigafacile, trattando 
del comando Join. Che, co- 
munque, non è l'unico a ga- 
rantire il tipo di prestazione 
richiesta dal lettore. Vediamo 
di chiarire l'argomento, visto 
che le situazioni nelle quali ci 
si può imbattere sono più d’u- 
na. 

La più banale è quella in cui 
sono già presenti due file di 


testo, che chiameremo Filel 
e File2. In questo caso, la so- 
luzione più ovvia è impartire... 

Joir. filel file2 To File3 

...ed il file3 sarà la fusione 
dei due precedenti. Si può an- 
che desiderare, in modo diret- 
to oppure da batch file, ag- 
giungere una singola riga, o 
più righe, per esempio al Fi- 
lei . Stavolta, Join da solo non 
basta. 

Una soluzione potrebbe es- 
sere quella di creare un file 
provvisorio redirigendo nor- 
malmente l’output di un co- 
mando come Echo verso un 
file fittizio, da appendere in un 
secondo tempo tramite Join. 
Per essere più chiari, si proce- 
da come segue. 


Prima di tutto, ci si porti in 
Ram Disk per operare in que- 
sto device virtuale impartendo 
cd Ram:. Si crei il Filel (che 
finirà in Ram disk) digitando 
nella finestra Shell Copy * 
Filel. Quando il cursore si 
sarà bloccato, si digiti una fra- 
se qualunque, per esempio 
"lo sono il file 1", e si pressi- 
no poi (dopo un Return) in 
contemporanea i tasti Ctrl e 
barra inversa (T). Si avrà così 
in Ram disk un file-testo di 
nome Filel (tecnica di redire- 
direzione della consolle attua- 
le, più volte affrontata in que- 
ste pagine). Naturalmente è 
solo un esempio, per cui il file 
di testo potrebbe già essere 
presente, o comunque essere 
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creato con tecniche differenti 
(un ripasso non guasta 

mai...). 

Supponiamo ora di voler 
aggiungere al Filel un’altra ri- 
ga. Applicando quanto detto 
prima, si potrebbe seguire 
una procedura di questo tipo: 

* impartire un comando 

Echo >temp "e chi se ne 
f rega ? " . In tal modo si cree- 
rà un file di nome "temp", con- 
tenente il testo appena digita- 
to. 

• impartire Join filel 
temp t.o fi le2. Il file2, come 
verificabile adoperando un 
banale Type Fi le 2, conterrà 
entrambe le frasi di un ipoteti- 
co dialogo... dai toni non pro- 
prio gentili. 

Adoperando questa tecni- 
ca, si badi, il Filel resterà co- 
munque integro ed immodifi- 
cato. 

Esiste poi una terza solu- 
zione, poco documentata nel- 
la manualistica di Amigados, 
che consente un vero e pro- 
prio append al file originario 
(nel nostro caso Filel), che 
risulterà quindi modificato de- 
finitivamente (occhio quindi 
ad eventuali errori). Si tatta di 
adoperare ancora la redire- 
zione dell’output di Echo, ma 
inserendo due volte il simbolo 
maggiore (>). In pratica: ci si 
assicuri del contenuto del Fi- 
lei impartendo Type Filel . Se 
tutto è in regola, questo do- 
vrebbe ancora contenere solo 
la frase "lo sono il filel”. 

Ora si impartisca da Shell... 

Echo >>Filc1 "molto lieto" 

T otto fatto. Un ulteriore con- 
trollo con Type Filel , mostre- 
rà come il file originario abbia 
acquisito quest'ultimo input 
senza perdere il precedente 
contenuto, come ogni Ap- 
pend che si rispetti. 

L’uso di una tecnica piutto- 
sto che l’altra dipenderà, co- 
me ovvio, dalle esigenze del 
momento, ma quest’ultima in 
particolare sarà senz’altro 
quella che con più frequenza 
risulterà utile. 


Probabile virus 
Posseggo un AmTga500 
con un solo drive , ed ho no- 
tato uno strano comporta- 
mento: dopo avere installa- 
to un disco adoperando il 
punto interrogativo finale a 
causa del drive singolo , 
questo diventa normalmen- 
te bootabile. Il problema 
sorge invece se voglio to- 
gliere l'autoboot. Allo sco- 
po adopero una sintassi 
Instali Drive Df 0 : No- 
boot ? (e 2 Return). Ma se 
subito dopo impartisco in- 
stali Drive Df 0 : Check ? 
(e due Return) il sistema mi 
segnala che " Appears to be 
a normal VI. 2/V 1.3 boot- 
block"! Ed infatti il disco è 
rimasto bootabile, come 
provato dopo aver spento e 
riacceso Amiga. 

Capita anche ad altri, oppu- 
re ho preso un nuovo virus ? 
(S. Manferdini - S. Lazzaro) 

S e le procedure indicate 
sono state eseguite esat- 
tamente come descritte, in ef- 
fetti il bootblock del disco do- 
vrebbe essere rimosso. An- 
che se può sembrare super- 
fluo: ci si è ricordati di cambia- 
re floppy prima dei due Re- 
turn? Dato per scontato che lo 
si sia fatto, si può provare ad 
adoperare una tecnica diver- 
sa, ovvero copiare il comando 
Instali in Ram Disk (comando 
Copy c:install ram:), in- 
serire il floppy da modificare 
nel drive, quindi digitare da 
Shell... 

Ram: instali DfO: Noboot 

...senza punto interrogativo 
e seguito quindi da un solo 
Return. 

Questo non perché la tecni- 
ca adoperata dal lettore sia 
scorretta, quanto per verifica- 
re che non si sia commesso 
qualche errore adottandola. 

Se anche così il floppy do- 
vesse rimanere bootabile, l’i- 
potesi più probabile è proprio 
l'interferenza di un qualche vi- 
rus. non necessariamente 


nuovo. Virus che. a meno non 
sia installato nel disco adope- 
rato normalmente per il boot 
(il Workbench, di solito), do- 
vrebbe per forza di cose pro- 
venire da quello che si inten- 
de rendere non bootabile. Co- 
me controprova al tutto, si ri- 
tenti la procedura adoperan- 
do una copia del Workbench 
sicuramente non "infetta", 
protetta in scrittura, e un flop- 
py ancora nuovo, mai adope- 
rato. Prima di formattarlo, è 
però opportuno lanciare un 
antivirus come VirusX (ultima 
versione al momento in cui si 
scrive: 4.01), che continua a 
restare attivo qualunque ope- 
razione si compia, e senza 
interferire. 

Se un virus dovesse tentare 
l'attacco, verrebbe cosi sma- 
scherato ed eliminato da Vi- 
rusx, che reinstalla i floppy 
"infetti" dopo aver segnalato il 


problema, e richiesto debita 
autorizzazione. Come ovvio, 
dopo l'intervento di Virusx, 
andrebbe comunque riappli- 
cato Instali con l’opzione No- 
boot. 

Basic e stampante 
Ho un problema che mi as- 
silla: vorrei inviare da Basic 
l'output verso la stampante 
adoperando Llist e Lprint, 
ma vengo sempre bloccato 
da un criptico messaggio 
'File A I ready Open’. 

(Marco Avonto - Novara) 

I l messaggio, in effetti, tanto 
criptico non è. In mancanza 
di maggiori dettagli, la causa 
più probabile dell'inconve- 
niente è legata alla mancata 
chiusura di un file preceden- 
temente aperto verso la peri- 
ferica Par:, Prt:, oppure 
Lpt1 :. 
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Si considerino come esem- 
pio queste righe: 

OPEN "prt : " FOR OUTPUT AS 1 
PRINT *1, "Ciao ! ! !" 

LPRINT "Come va?" 

Se mandate in esecuzione, 
provocheranno appunto l'er- 
rore File Already Open. Per 
evitarlo, sarà sufficiente inse- 
rire una istruzione dose 1 
immediatamente prima del 
comando Lprint, e in tal modo 
verrà stampata tanto la strin- 
ga "ciao!!!" che il "come va?" 

Le stesse considerazioni, 
come ovvio, valgono anche 
se Llist oppure Lprint sono 
impartiti in modo diretto dalla 
finestra di output, e in prece- 
denza si sia fatto "girare" un 
programma che non provve- 
de a chiudere eventuali files 
aperti verso la stampante (o la 
porta parallela). 

Difficile hacking 
Ho notato che, adoperando 
Action Replay, alcuni ga- 
mes non possono essere 
"congelati". Inoltre qualche 
volta non riesco a modifica- 
re il numero di vite di un 
gioco: attivo il Trainer, cam- 
bio il valore delle vite in un 
certo indirizzo esadecima - 
le, ma queste rimangono le 
stesse. Riesaminando le lo- 
cazioni da me cambiate, le 
ritrovo esattamente come 
prima del mio intervento... 
(Michele Verzi - Firenze) 

I l fatto che alcuni games non 
possano essere "freezati", 
come pure (almeno in parte) il 
motivo del ripristinarsi di alcu- 
ne locazioni di memoria, può 
essere fatto risalire con ogni 
probabilità... al programmato- 
re. Detto in altre parole: se chi 
ha programmato il game ha 
voluto evitare il più possibile 
manipolazioni dall’esterno, ci 
è riuscito. 

Come del resto accennato 
nello stesso manuale di Ac- 
tion Replay, non tutti gli inter- 
venti sono cosi immediati co- 
me sembrano. Esempio tipi- 


co, proprio il tentare di modifi- 
care il numero di vite del gio- 
co. Intanto occorre essere 
certi che siano proprio quelle 
modificate le locazioni che 
memorizzano questo dato. A 
parte alcuni trucchi classici 
per mimetizzare la realtà (ri- 
portati nel manuale di Action 
Replay), potrebbe proprio 
darsi che il programma (il ga- 
me) reinizializzi quelle loca- 
zioni dopo lo start. 

In questo caso si rendereb- 
be necessario andare a trova- 
re quella sezione di program- 
ma, e modificarla. Cosa di 
certo non facile, ma non si 
può pensare di ritrovarsi certe 
cose servite su un piatto d’ar- 
gento... 

□ □ 

Baco di Amos? 

Ho acquistato il Basic 
Amos con entusiasmo per 
programmare il mio (vec- 
chio) Amiga 1000, ma sono 
stato bloccato da un proble- 
ma che non sono riuscito a 
risolvere. Usando le varia- 
bili reali (che in Amos non 
sono quelle di default, ma 
vanno identificate dal sim- 
bolo che segue il nome 
della variabile) se nel pro- 
gramma è presente un input 
qualsiasi dopo l’uso di que- 
ste variabili, il computer si 
blocca e bisogna resettare 
tutto! 

(A. Nardozza - S. Aurunca) 


L a lettera prosegue propo- 
nendo un listatino di 
esempio così strutturato... 

Screcn Open 
1,640, 256. 8, Hires 
10 Cls 

Input "Dammi 3 numeri 
";A#,B#,C# 

Print A# * B# *C# 

Tnput "Ancora (s/r.)? ";R$ 

If R$-"s" Then 10 
Screen dose 1 


...che funziona perfetta- 
mente se al posto delle varia- 
bili reali si adoperano le varia- 
bili intere, mentre in questa 
forma il computer si blocca 
alla richiesta se continuare o 
meno. 

Il problema, abbiamo ri- 
scontrato, esiste realmente e 
non è legato all’uso di Amiga 
1000, ma si verifica anche su 
modelli più recenti. 

Come giustamente fa nota- 
re il nostro lettore nella lettera, 
un limite di questo tipo non 
impedisce di trattare elementi 
come la grafica, gli schermi, 
eccetera, ma certo blocca ini- 
ziative didattiche volte, per 
esempio a risolvere equazio- 
ni, o comunque applicazioni 
che richiedano una certa pre- 
cisione di calcolo: Amos è sì 
un Basic volto soprattutto alla 
realizzazione di games, ma 
dovrebbe essere possibile 


accedere anche ad altre ap- 
plicazioni, magari supportate 
da una interfaccia grafica dal- 
le mirabolanti prestazioni, 
considerate le potenzialità di 
questo linguaggio. 

Va precisato, comunque, 
che l'inconveniente (vogliamo 
chiamarlo Bug?) si presenta 
solo nella versione 1.2 di 
Amos, mentre con la prece- 
dente 1.1 lo stesso sembra 
non sussistere. 

Ci affrettiamo ad aggiunge- 
re "sembra" in attesa di va- 
gliare più a fondo questo inter- 
prete, che sembra riscuotere 
un notevole successo. 

Se nel frattempo qualche 
altro lettore ha trovato una so- 
luzione alternativa alla cosa, 
non ha che da farcelo sapere: 
saremo ben lieti di ricrederci 
(e pubblicarne il contributo). 
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Insieme 


REM esempio di uso del Dos da Basic 


DECLARE FUNCTION xOpeni LIBRARY 
DECLARE FUNCTION execute% LIBRARY 
LIBRARY "dos. library” 


comando$="newshell" 
redir$="nil : " 

CALL dos (comandoS, redir$) 
LIBRARY CLOSE 


SUB dos (istr$, outpS) STATIC 
istr$=istr$+CHR$ (0) 
outp$=outp$+CHR$ (0) 
punt&=xOpen& (SADD (outp$ ) ,1006) 
exe%=execute% (SADD (istr$) , 0, punti ) 
CALL xclose (punti ) 

END SUB 


Basic e Dos 

Come posso far eseguire 
un comando della directory 
C (come Assìgn , List, ecce- 
tera) dal Basic? 

(Armando Rampelli - Roma) 

D ipende dal Basic adope- 
rato. Nel senso che alcuni 
interpreti sono dotati di una 
propria gestione del Dos, co- 
me per esempio il Blitz Basic 
(in realtà da considerarsi un 
Basic compilato) che addirit- 
tura consente di accedere al 
Cli senza uscire dal proprio 
ambiente. Oppure come 
Amos, che, pur non dispo- 
nendo di una simile feature, 
tuttavia implementa una vasta 
gamma di comandi comple- 
mentari a quelli del dos. 

Se invece si ha a che fare 
con il Basic Microsoft, (ahinoi) 
meglio conosciuto come Ami- 
gaBasic, o si ha comunque 
l’esigenza di mandare in ese- 
cuzione un comando esterno, 
non c’è altra soluzione che 
ricorrere alla funzione Execu- 
te della Dos Library: semplice 
da usarsi, ma che richiede al- 
cune attenzioni particolari. 

Intanto, cominciamo col ve- 
derne la sintassi, riferendoci 
ad un suo uso in ambito Ami- 
gabasic: 

ok%-Execute*. (c&, in&, out&) 

Trattandosi di una funzio- 
ne, come si vede non va ri- 
chiamata con Cali, ma asso- 
ciata ad una variabile (nel no- 
stro caso ok%). I parametri 
sono da interpretarsi così: 

# C& - Puntatore all’indiriz- 
zo di memoria ove è memoriz- 
zata la stringa che identifica il 
comando. In Amigabasic, 
questo valore lo si otterrà ado- 
perando l’istruzione Sadd. La 
stringa, come di norma quan- 
do si tratta con Amiga ad un 
livello più basso, deve obbli- 
gatoriamente concludersi con 
un Chr$(0). 

* ln& - Questo valore rap- 
presenta l’input, o meglio il 
suo handle, che poco riguar- 
da il basic. In pratica, andrà 


posto sempre a zero, in quan- 
to l’input è precisato dalla 
stringa-comando. 

* Out& - Con questo para- 
metro si specifica l’output ver- 
so il quale dirigere il comando. 
Da un punto di vista pratico, 
nella maggior parte dei casi 
sarà rappresentato da un 
puntatore ad una stringa (an- 
che questa con un Chr$(0) fi- 
nale) che identifica il nome di 
un file, oppure il device Nil: 
del Dos. Volendo, si potrebbe 
porre a zero il valore di questa 
variabile, nel qual caso l'out- 
put verrebbe diretto verso la 
cosiddetta console corrente, 
ma attenzione: questa possi- 
bilità richiede obbligatoria- 
mente che Amigabasic sia 
stato lanciato da Shell (o Cli), 
e non da Workbench. In tal 
caso, se per esempio si asse- 
gnasse List alla stringa-co- 
mando, e si assumesse zero 
come puntatore all’output, il 
listing della directory corrente 
verrebbe mostrato nella fine- 
stra Shell dalla quale si è lan- 
ciato Amigabasic. Se, invece, 
si fosse adoperato il solito 
doppio click da Workbench 
per attivare l’interprete, azze- 
rando questo parametro si ot- 
terrebbe solo una visita dell’a- 
mico Guru, in quanto non esi- 
sterebbe una console del Dos 
per l’output (la finestra del ba- 
sic non lo è!). 

Dopo tanta teoria, si dia 
un’occhiata al breve listato 
pubblicato a parte: si noterà 
come tutto è più facile di quel- 
lo che sembra. 

Occorrerà naturalmente 
provvedere alla dichiarazione 
delle funzioni adoperate 
(Execute e Open), e far sì che 
il Basic possa accedere al file 
Dos.bmap, per chi ancora 
non lo sapesse rintracciabile 
nella directory Basicdemos 
del disco Extras. Nel listato di 
esempio, viene proposta una 
subroutine che può essere in- 
serita in qualsiasi altro listato: 
basterà passargli una stringa 
col nome del comando ed una 


con il nome del file o device 
ove dirigere l’output, ed al re- 
sto penserà lei, ivi compresa 
l'aggiunta del Chr$(0) alle 
stringhe. 

Se mandato in esecuzione 
così com’è, il programmino si 
limita ad aprire una nuova fi- 
nestra Shell, ed a concludere 
il suo operato. Per questo mo- 
tivo, l’output viene diretto ver- 
so Nil: (il nulla di niente, per 
intenderci), visto che il co- 
mando Newshell non neces- 
sita di un output su schermo. 
Se. invece, avessimo voluto 
adoperare (per esempio) 
List, saremmo stati costretti 
ad assegnare il nome di un file 
alla variabile Redir$, even- 
tualmente comprensivo di 
percorso. 

Si provi a modificare le as- 
segnazioni del programma in 
modo da avere... 

comando$ - "List" 
redir$ = "Ram:myf ile" 

Stavolta, dopo l’esecuzio- 
ne, sarà presente in Ram Disk 
un file di nome Myfile, conte- 
nente l’elenco dei file della di- 
rectory corrente, esattamente 
nello stesso formato che si 
avrebbe impartendo List da 
una finestra Dos. Come ov- 


vio, per eventuali usi da Ba- 
sic, questo file andrebbe poi 
trattato come più aggrada dal 
programma, ovvero a suon di 
Open, Print#, Input#, eccete- 
ra. 

Nella subroutine proposta, 
in funzione soprattutto della 
più larga compatibilità possi- 
bile, il file di output viene aper- 
to (nonché richiuso) sfruttan- 
do le funzioni della Dos Libra- 
ry xOpen e xClose, il cui uso 
(molto semplice) può essere 
dedotto direttamente dal lista- 
to. Come ovvio, il tutto pre- 
suppone che il comando invo- 
cato da Basic sia presente nel 
percorso di ricerca del dos (ti- 
picamente la directory C), o 
nella directory corrente, men- 
tre è sempre obbligatoria la 
presenza di Run nella direc- 
tory C. Nulla vieta, comunque, 
che nella stringa che indica il 
comando si precisi ove è rin- 
tracciabile il comando (per 
esempio: Sys:system/for- 
mat), nel qual caso non è più 
indispensabile che questo si 
trovi compreso nel Path di ri- 
cerca. 

Per il resto, non c’è che da 
dilettarsi in tentativi anche az- 
zardati: è l'unico modo per tro- 
vare applicazioni degne di no- 
ta a quanto finora espresso. 

In bocca al Guru... 
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di Fabrizio Bazzo 


Cifriamo un testo ASCII 
ricorrendo alla matematica 


Vi siete mai chiesti a che servono le matrici 
che, a scuola, fanno spesso venire il mal di testa? 
Ecco una pratica applicazione 


O gnuno di noi, si sa, ha qualcosa da 
nascondere; quando non ci si può 
affidare solo alla memoria e questo qual- 
cosa (messaggi spionistici, progetti rivo- 
luzionari o, più realisticamente, il codice 
del Bancomat) ha bisogno di essere 
messo per iscritto, il pericolo che diventi 
di dominio pubblico spinge a cercare so- 
luzioni strane. 

Leonardo da Vinci, per esempio, scri- 
veva i suoi progetti da destra verso sini- 
stra, per rileggerli in seguito mediante 
uno specchio; oggi esistono metodi più 
comodi, tra cui la codifica mediante com- 
puter. 

Metodi di codifica ve ne sono in abbon- 
danza, alcuni sicuri, altri un po’ meno; 
forse qualcuno, non più giovanissimo, si 
ricorda dell’orologio codificatore delle 
Giovani Marmotte che si limitava a sta- 
bilire una corrispondenza biunivoca tra 


un alfabeto ordinato (A-Z) e uno "rime- 
scolato"; ad ogni A corrispondeva, ad 
esempio, una Y, e viceversa; il grave 
difetto di un simile codice è che se nel 
messaggio originale compaiono cinque 
A, ci saranno altrettante Y in quello cifra- 
to, per giunta nella stessa posizione; ri- 
salire al messaggio originale, pertanto 
può risultare fin troppo semplice. 

Un altro metodo, molto sfruttato ancora 
oggi, consiste nel "gonfiare" il messaggio 
originale con parole o lettere senza sen- 
so, riservandosi di rileggerlo con caden- 
ze prefissate o, meglio, attraverso un 
foglio di cartone forato nei punti giusti; 
anche in questo modo, però, il messag- 
gio originale resta esposto, anche se non 
immediatamente visibile. 

La sostituzione dell'alfabeto tradizio- 
nale con il codice ASCII e l’abbinamento 
dei due metodi appena descritti può in- 


garbugliare ancora di più le cose, ma un 
curioso molto testardo potrebbe sempre 
venirne a capo, e noi non vogliamo cor- 
rere rischi. 

Altro difetto, per nulla trascurabile in 
codici di questo tipo, è che una volta nota 
la chiave di codifica è automaticamente 
svelata anche quella di decodifica. 

□ □ 

La teoria 

I codici a matrice, su cui si basa il 
programma proposto, sono la naturale 
evoluzione dei codici a sostituzione, 
molto più efficienti di questi: il numero dei 
caratteri del messaggio da cifrare non 
viene aumentato artificiosamente e la 
frequenza relativa di ogni carattere nel 




5 * 

1/5 

1 



3 1 

2 -1 

1 

0 


5 2 * 

-5 3 = 

0 

1 

1 

0 -1 

12-1 

1 

0 0 

2 

1 3 * 

- 2 - 95 = 

0 

1 0 

4 

2 5 

0 2-1 

0 

• 

0 1 



Tabella 1 




Relazione tra una matrice e la corrispondente inversa. 
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messaggio originario è completamente 
stravolta nel messaggio cifrato. 

La lettera A potrebbe, infatti, essere 
tradotta la prima volta con una parentesi 
graffa aperta, la seconda con q, e via 
ingarbugliando. Inoltre il passaggio dalla 
chiave di codifica a quella di decodifica 
non è per niente immediato. 

Prima di proseguire abbiamo bisogno 
di scomodare la matematica, e in partico- 
lare l’algebra lineare: niente paura, solo 
lo stretto indispensabile per capire di che 
cosa stiamo parlando, e senza scomoda- 
re teoremi che, sebbene utilissimi, non 
abbiamo il tempo (nè la voglia) di spiega- 
re. 



Posto che la chiave di codifica da adot- 
tare sarà una matrice quadrata di interi, 
questa sarà una chiave valida solo se il 
suo determinante sarà diverso da zero. 
Tale particolare garantirà che la matrice 
è invertibile: ma ancora non basta. Oc- 
corre che l’inversa sia ancora una matri- 
ce di interi (cfr. tabella 3). 

Quando una matrice quadrata ha il de- 
terminante diverso da zero se ne può 
determinare l’inversa eseguendo una se- 
rie di cosiddette operazioni di riga, fino a 
trasformarla nella matrice identica (che, 
detto in soldoni, è l’uno del mondo matri- 
ciale); eseguendo le stesse operazioni 
su una matrice identica si ottiene l’inver- 


Tabeila 2 (codifica e decodifica) 

Il messaggio è scomposto nei corrispondenti caratteri ASC*, che sono diminuiti di 31 per evitare di pescare in 
seguito valori aso\ inferiori a 32. Viene quindi eseguito il prodotto riga per colonna con la matrice di codifica. 
Il range dei caratteri utilizzato e' da 32 a 126 (95 caratteri). Volendo , e' possibile limitarsi, ad esempio, alfe 

sole lettere maiuscole (65- 90 => moo 26). 
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1 3 

67 111 109 109 111 110 111 114 101 32 67 
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2 5 
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67 108 117 98 

33 ASCII... 
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69 
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78 81 86 
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1 36 77 
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259 237 

86 
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165 346 
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432 407 
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colonna . . . 

80 

38 
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5 

33 
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16 
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82 
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78 
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50 
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. . .mod 95 . . . 
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... ASCII 


sa della matrice di partenza (vedi tabella 
1 ). Occorre poi definire il prodotto tra 
matrici, dato che il messaggio da codifi- 
care è esso stesso una matrice di codici 

ASCII. 

Il prodotto è possibile solo se il numero 
di colonne della prima matrice (in questo 
caso la "chiave") è uguale al numero di 
righe della seconda matrice (cfr. tabella 
2 ). 


Ricapitolando 

P er crittografare un messaggio si 
prende in considerazione una matri- 
ce quadrata di interi che abbia, come 
inversa, ancora una matrice di interi. 

Si dispongono, poi, i caratteri del mes- 
saggio in modo da formare una matrice 
che abbia un numero di righe uguale al 
numero di colonne della matrice chiave, 


3 1 

52 = 3 * 2 - 1 * 5 definizione 

14 7 

258 58 28 25 

369 = +1* 69 -4* 39 +7* 36 


Tabella 3 (determinante) 

Per matrici quadrate di ordine superiore a 2 il procedimento è ricorsivo e presenta alteranza di segni a 
partire dai più (*) e muovendosi verso H basso oppure verso destra. Nel programma non è stata seguita 
questa tecnica, ma un trucco consentito da alcuni teoremi: se al sotto della diagonale vi sono solo valori 
numn determinante è dato dal prodotto degS elementi presenti sulla diagonale stessa. 
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", "Save 
", "Quit 


' codici a matrice 
'by Fabrizio Bazzo 

'menu enable 

DATA "Matrix", "New ", "Deter.", "Invert", "Load ", "Save " 

DATA "Code ", "Text ", "DeCode", "Load ", "Save ", "Quit " 

FOR i - 1 TO 2: FOR j = 0 TO 5: READ m$ 

MENU i, j, 1, m$ : NEXT : MENU i + 2, 0, 0, NEXT 

ON MENU GOSUB choise: MENU ON: sp$ = SPACES (55) 

DIM SHARED i (20, 20) 

DIM m (20, 20), mi (20, 20), d (20, 50), c (20, 50) 

main : 

WHILE vogliadistudiare = 0 'loop infinito... 

IF refresh THEN 

refresh =0:1= LEN (msg$) : CLS: w » 0 

IF k OR 1 THEN 'C'e' qualcosa da stampare? 

IF k = 0 THEN k = INT ( (1 A 2) A (1/5) ) ELSE w = 1 'split mess. 
GOSUB where : FOR z = y TO y + k-1: LOCATE z, x 
IF w THEN 

FOR i = 1 TO k: PRINT USING"M . #"; m (CSRLIN-y + 1, i) ; 
NEXT: PRINT SPC (3) ; 

END IF 

IF 1 THEN PRINT MID$ (msg$, ( (CSRLIN-y) * q + 1), q) 
NEXT: GOSUB depth 
END IF 
END IF 
WEND 


e si esegue il prodotto delle due matrici. 
Con opportuni controlli i valori della ma- 
trice prodotto saranno ancora coerenti 
con il codice ascii. 

Si ottiene così un messaggio cifrato, in 
grado di procurare al nostro curiosone un 
robusto mal di testa. 

Per riottenere il messaggio originale 
basta moltiplicare l’inversa della matrice 
chiave per la matrice del messaggio ci- 
frato. 


□ □ 


Il programma 

I calcoli di prodotti e inversioni sono 
lunghi e noiosi, perciò li faremo fare al 
computer (in fondo serve proprio per 
questo). 

Una volta digitato, salvato e lanciato il 
programma, si potrà ammirare un bello 
schermo vuoto, mentre un loop attende 
la scelta, da parte nostra, di un elemento 
del menu. 


where: 'posizionamento 

y = INT ( (24 -k) /2) : q - INT (1/k + .9) 
x = (76-q-w * ( 3 + k * 4 ) ) / 2 : RETURN 


Dal menu Matrix (primo in alto a sini- 
stra che appare premendo il tasto destro 
del mouse) selezioniamo New (nuova 


depth: 'bassorilievo 

xl = (x-2) * 8: yl = (y-2) * 8 

dx = (q + w * (k * 4 + 3) +2) * 8 : dy * (k + 2) * 8 
FOR c = 0 TO 1 

LINE (xl, yl + dy * c) - (xl + dx, yl + dy * c) , c + 1 
LINE (xl + dx * c, yl) - (xl + dx * c, yl + dy) , c + 1 
NEXT: RETURN 

choise: 'gestione menu 

ON MENU (0) GOSUB matrix, code: RETURN 

roatrix: 

ON MENU (1) GOSUB newm, determ, invert, loadm, savem: RETURN 

code : 

ON MENU (1) GOSUB text, decode, loadt, savet, quit: RETURN 
newm: 'ingresso dati matrice 

CLS: f = 1: PRINT : INPUT "Ordine delia natrice quadrata k 
PRINT "Inserire i valori per colonne" : PRINT 
FOR j = 1 TO k: FOR i = 1 TO k 


C’E 

QUALCOSA 
DI NUOVO 
NELL’ARIA 
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PRINT "riga "i" colonna "j; : INPUT m (i, j) 

NEXT: NEXT 

WHILE f 'controllo errori 

CLS : LOCATE (24-k) 12 , 1: GOSUB showmat 
PRINT TAB (33) ; : INPUT"Correzioni r$ 

IF r$ - "s" THEN GOSUB correct ELSE f - 0 
WEND : refresh = 1 
RETURN 

showmat : 

FOR i = 1 TO k: PRINT TAB ( (76-k) /2) ; : FOR j = 1 TO k 
PRINT USING"#* " ; m (i, j) ; : NEXT: PRINT: NEXT: PRINT: RETURN 

correct : 

PRINT TAB (10) "Riga e colonna da modificare < < i, j > > 
INPUT i , j 

PRINT TAB (26) "Nuvo valore : INPUT m (i, j) : RETURN 

determ: 'calcolo e visualizzazione determinante 

FOR i «= 1 TO k: FOR j » 1 TO k: mi (i, j) - m (i, j) 

NEXT: NEXT 

CALL det (mi (), k) : LOCATE 5, 25 

PRINT USING "Determinante - ###.##"; dtm 

BEEP: FOR t - 1 TO 5000: NEXT: LOCATE 5, 25: PRINT sp$ 

RETURN 

invert: 'inversione matrice 

CALL inv (m (), k) : refresh = 1 

FOR i - 1 TO k: FOR j = 1 TO k : m (i, j ) = i (i, j) : NEXT: 

NEXT 

RETURN 

text: 'messaggio 

CLS: a$ = "": msgS - "": LOCATE 5, 1: PRINT "Messaggio: > "; 

WHILE a$ <> CHR$ (13) 
a$ = INKEY5: y = CSRLIN: x = POS (0) 

IF a$ <> CHR$ (13) AND a$ <> "" THEN 
IF ASC (a$) > - 32 OR ASC (a$) < » 126 THEN msg$ = msg$ + a$ 
IF ASC (a$) = 8 THEN 'controllo backspace 
IF LEN (msg$ ) = 0 THEN a$ - "" 

IF POS (0) = 1 THEN LOCATE y-1, 76 

msg$ - LEFT$ (msg$, (LEN (msg$) -2) ) 

END IF 
END IF 

IF x < = 75 THEN PRINT a$; ELSE LOCATE y + 1, 1: PRINT a$; 
WEND: 1 = LEN (msg$) : refresh = 1 
RETURN 

decode: 'codifica/decodifica 

1 - LEN (msg$) : q = INT (1/k + .9) 

FOR i = 1 TO k: FOR j = 1 TO q 

z = j + q * (i-1) : d (i, j) - 0 

IF z < = 1 THEN w - ASC (MID$ (msg$, z) ) : c (i, j) = w-31 
NEXT: NEXT 


il listato (parte 2) 


matrice) e rispondiamo con 2 alla richie- 
sta dell’ordine (dimensione della matri- 
ce); quindi inseriamo diligentemente i va- 
lori della matrice come in tabella 2. In 
altre parole... 

Riga 1 , colonna 1 ? 1 
Riga 1, colonna 1? 1 
Riga 2, colonna 1 ? 2 
Riga 1 , colonna 2? 3 
Riga 2, colonna 2? 5 

Dopo eventuali correzioni, la nostra 
matrice apparirà più o meno al centro 
dello schermo. 

Per verificare una cosa che già sappia- 
mo, selezioniamo Deter (sempre dal me- 
nu Matrix) per calcolarne e visualizzarne 
il determinante (valore: -1). 

Affianchiamo ora il messaggio: dal me- 
nu Code selezioniamo Text e copiamo 
(su un’unica riga e premendo Return alla 
fine) il fantasioso messaggio in figura 2, 
o qualsiasi altro; in questa fase è possi- 
bile utilizzare tutti i caratteri dal chr$<32) 
al chr$(i 26 ), utilizzando il Backspace per 
eventuali correzioni. 


LA TUA 
RIVISTA, 

A PARTIRE DA 
SETTEMBRE... 
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FOR i « 1 TO k: FOR j = 1 TO q 

FOR y * 1 TO k 'prodotto riga * colonna 

d <i, j) * d (i, j) + m (i, y) * c (y, j) : NEXT 

d <i, j) = d ( i / j) MOD 95 -95 * (d <i, j) <0) 'ASCII 32/126 

NEXT: NEXT 

msg$ * "": FOR i - 1 TO k: FOR j = 1 TO q 
msg$ = msg$ + CHR$ (d ( i , j) + 31) 'ricostruzione 
NEXT: NEXT: refresh = I 
RETURN 

savem: 

GOSUB nomefile 

OPEN f ile$ + ".mat" FOR OUTPUT AS #1: WRITE# 1, k 
FOR i = 1 TO k: FOR j » 1 TO k : WRITE# 1, m <i, j) 

NEXT: NEXT: CLOSE #1 
RETURN 

loadm: 

GOSUB nomefile 

OPEN f ile$ + ".mat" FOR INPUT AS #1: INPUT #1, k 
FOR i » 1 TO k: FOR j - 1 TO k : INPUT #1, m (i, j) 

NEXT: NEXT: CLOSE #1 
RETURN 

loadt : 

GOSUB nomefile 

OPEN file$ ♦ ".txt" FOR INPUT AS #1: INPUT #1, msg$: CLOSE *1 
RETURN 

savet : 

GOSUB nomefile 

OPEN f ile$ + ".txt" FOR OUTPUT AS #1: WRITE# 1, msg$: CLOSE #1 
RETURN 

nomefile : 

LOCATE 5, 20: INPUT "Nome file -suffix will be added- "; fileS 
LOCATE 5, 20: PRINT sp$ : IF file$ = "" THEN RETURN main 
refresh = 1: RETURN 

quit : 

MENU RESET: END 

SUB det (m (2), k) STATIC 'parametri: matrice, dimensione 

SHARED dtm ' ritorna : dtm 

FOR j * 1 TO k-1 

IF m <j, j) =0 THEN 'il primo elemento sulla 

r » 1 'diagonale deve essere <> 0 

WHILE m (r, j) =0 AND r < = k 'se trova nella colonna un 
r « r + 1 'valore <> 0... 

WEND 

IF r - k ♦ 1 THEN dtm - 0: EXIT SUB 

FOR s b 1 TO k '...somma le due righe 

m (j, s) - m (j, s) ♦ m (r, s) 

NEXT 
END IF 
i = 1 

WHILE j i < - k 'partendo dall'elemento sulla 

IF ri (j ♦ ii j) <> 0 THEN 'diagonale somma ogni riga alla 


Il listato (parta 3) 


Dopo il Return, le due matrici sono 
pronte per essere moltiplicate fra loro: 
ancóra al menu Code selezioniamo De- 
Code per ammirare i guazzabuglio di 
caratteri che. ora, rappresenta il nostro 
messaggio; per tornare alle condizioni 
originare basta selezionare Inveri (dal 
menu Matrix) e quindi ancora DeCode. 

In generale, ogni qualvolta che si sele- 
ziona DeCode viene effettuato il prodotto 
tra le due matrici visualizzate: ciò signifi- 
ca che un messaggio può essere critto- 
grafato un numero indefinito di volte con 
la stessa matrice chiave, a patto che il 
prodotto venga moltiplicato lo stesso 
numero di volte per la matrice inversa, 
se si vuole riottenere qualcosa di leggibi- 
le. 


Il programma è finalizzato alla visualiz- 
zazione sullo schermo, quindi con mes- 
saggi molto lunghi occorrono matrici con 
dimensioni elevate per tenere il tutto sot- 
tocchio; spezzando il messaggio in seg- 
menti di lunghezza opportuna può basta- 
re una piccola matrice 2 x 2 per codificare 
Guerra e Pace oppure il breve discorso 
di un qualsiasi parlamentare (di per sè 
già abbastanza criptico). 


\ 


...TI DARA 
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alfa - -m (j + i, j) /m (j, j) 'sottostante, dopo averla 
FOR s ■ 1 TO k 'moltiplicata per un alfa tale 

m (j + i, s) » m (j, s) * alfa + m (j + i, s) 'che dopo 

NEXT ' la somma il valoresottostante sia zero; 

END IF 'cosi' per ogni colonna 

i - i + 1 
WEND 
NEXT 

dtm = 1: FOR j = 1 TO k 

dtm = dtm * m (j, j) : NEXT 'prodotto diagonale 
END SUB 

SUB inv (m (), k) STATIC 'parametri: matrice, dimensione 
FOR i » 1 TO k: FOR j - 1 TO k: 'ritorna: matrice identica 

i (i, j) = 0: IF i = j THEN i (i, j) * 1 'modific. l'inversa 
NEXT: NEXT 
FOR j = 1 TO k 

IF m (j, j) =0 THEN 'voglio un 1 sulla diagonale 
r - 1 

WHILE m (r, j) - 0 AND r<-k:r«r+l: WEND 
FOR s = 1 TO k 

m (j, s) - m(j, s) + m (r, s) : i (j, s) -i (j, s) + i (r, s) 
NEXT 
END IF 

alfa ■ l/m (j, j) 'e solo zeri sotto 

FOR s = 1 TO k 

m (j, s) = m (j, s) * alfa: i (j, s) - i (j, s) * alfa 
NEXT 
i - 1 

WHILE j + i < = k 'dall'alto in basso 

IF m (j + i, j) <> 0 THEN 'e da sinistra verso destra 
alfa = -m (j + i, j) 

FOR s - 1 TO k 

m (j + i, s) = m (j ♦ i, s) + m (j, s) * alfa 
i (j + i, s) ■ i (j ♦ i, s) + i (j, s) * alfa 

NEXT 
END IF 
i = i + 1 
WEND 
NEXT 

FOR j = k TO 1 STEP -1 
i - 1 

WHILE j-i> = 1 'dal basso in alto 

IF m (j-i, j) <> 0 THEN 'e da destra verso sinistra 
alfa » -m (j-i, j) 

FOR s - 1 TO k 

m (j-i, s) = m (j-i, s) + m (j, s) * alfa 
i (j-i, s) = i (j-i, s) + i (j, s) * alfa 
NEXT 
END IF 
i = i + 1 
WEND 
NEXT 

END SUB 


Il listato (parla 4; fine) 


Il listato 

I l programma è costituito da gruppi di 
subroutines indipendenti, facilmente 
analizzabili, criticabili (possibilmente in 
modo costruttivo) e modificabili; è inoltre 
facilmente traducibile in linguaggi più 
strutturati data la rigorosa assenza di 
comandi del tipo goto. I sottoprogrammi 
Det e Inv sono essenziali solo in fase di 
ricerca di una o più chiavi idonee. 

I fans dell’algebra lineare troveranno 
comunque il modo di farne un uso profi- 
cuo (esempio: un sistema lineare di n 
equazioni in n incognite si risolve anche 
moltiplicando l’inversa della matrice dei 
coefficienti per il vettore dei termini noti). 

Una volta che si disponga di almeno un 
paio di chiavi idonee, il programma vero 
e proprio può essere ridotto alle sole 
routines Newm:, Text: e DeCode:. Le 
routines di Load e Save sono state ag- 
giunte solo per comodità: copiare un 
messaggio cifrato più lungo di 10 carat- 
teri può causare facilmente una crisi di 
nervi. 

Per concludere, un saluto; in codice 
naturalmente: 

97U:GW<'0/$yiE«]Ot_2UCK/ (5, 4, 4, 3) 

...con invito a decifrarlo 


...E, INOLTRE... 



(RICORDA: DA SETTEMBRE) 
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di Armando Sforzi 


Batch-Files 
tutti i gusti 



Con i Batch files è 
possibile sfruttare a 
fondo le risorse del 
Sistema Operativo per 
soddisfare le proprie 
necessità. 


C aratteristica molto interessante è la 
capacità che AmigaDos possiede di 
eseguire automaticamente sequenze di 
comandi: i cosiddetti Batch File o File 
Script. 

Esempi classici di questi sono le ben 
note famose sequenze di inizializzazione 
presenti nella directory S: del disco di 
sistema, tramite le quali (e modificando 
le quali, naturalmente con criterio) è pos- 
sibile inizializzare il computer configuran- 
dolo, entro certi limiti, in modo diverso a 
seconda delle esigenze. 

Ma tutto questo non è certamente un 
novità per coloro che, in qualche modo, 
abbandonando il rassicurante Wor- 
kbench e biclickando su Cli o, meglio (a 
partire dalla versione 1.3 del Dos) su 
Shell si sono avventurati in una cono- 


scenza più approfondita del sistema del 
calcolatore. Una considerazione che for- 
se non tutti possono aver fatto è quella 
per cui i comandi del Dos. presi nel loro 
insieme, costituiscono un vero e proprio 
linguaggio di programmazione . permet- 
tendo di creare programmi di gestione (i 
file script, appunto) anche relativamente 
complessi. Con i files presentati in queste 
pagine vogliamo, appunto, dare alcune 
dimostrazioni delle capacità di program- 
mazione del Dos. cercando di perseguire 
uno scopo didattico non disgiuntamente 
dall'evidenziare la loro valenza di utilità 
sfruttabile in applicazioni pratiche. 

Il primo batch che presentiamo intende 
raccogliere la sfida lanciata su C.C.C n. 
79. dando una risposta concreta alla ri- 
chiesta di creare una procedura che per- 


metta di calcolare il tempo totale di utiliz- 
zo di un certo programma. 

Di questo batch, abbondantemente 
commentato sul listato, analizzeremo ora 
l'impostazione. Per quanto concerne le 
caratteristiche delle singole istruzioni, ri- 
mandiamo ai numeri di C.C.C. che, a 
partire dal 75 con la rubrica "Amigafaci- 
le'\ descrivono con estrema chiarezza e 
completezza i comandi di AmigaDos. 

L'idea, per realizzare il contatore del 
tempo, è stata quella di creare un file nel 
quale siano fissate: l'ora in cui si è inizia- 
to a lavorare con un certo programma per 
la prima volta: l’ora stessa successiva- 
mente memorizzata e. di volta in volta, 
aggiornata; l'ora, infine, del termine di 
ciascuna sessione di lavoro. 



.key f i lename/a, £ i let ime/a /Preleva gli argomenti 

; +++ conta il tempo di lavoro ++■+ 
echo "TI ME- WORK COUNTER" 
copy crsearch to ram : 

ii exists "<f ilet ime>" ;Se esiste <f i let ime> . . . 

search >env:bu£ ”<f i let ime>" "!" nonum /cerca "!" 
if not warn /Se la trova... 

copy er.v:buf tc envtdatel /copia la linea in date! 
er.dif 

else /se no. . . (la prima volta) 

date >env:date2 /memorizza la data corrente... 

setenv buf " ! " /completa di marcatore " ! * . . . 

join env:bu£ env:date2 to er.v :datel /per riconoscerla 
endif 

run >nil: "<fi lename>" /Carica il programma 
ask " (Active window and) Press RETURN lo end" /Attende 
date >env:date2 / Memori zzadat a finale insieme... 

join er.v:datel env:date2 tc "<f ilet ime>" / ...alla prima 


Il file Batch da usare in unione con il programma AmigaBasic 
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sic, anch'esso pubblicato in queste pagi- 
ne. 

□ □ 

Un nuovo Locate 

I llustriamo ora il secondo file-batch che, 
in pratica, aggiunge un nuovo comando 
AmigaDos (implementando l’istruzione 
di Locate), per posizionare dove si vuole, 
su video, l'output del testo. 

E’, quindi, un comando del tutto analo- 
go aH'omonimo disponibile in AmigaBa- 
sic. La sintassi di lancio del nostro bre- 
vissimo script è la seguente, avendo avu- 
to cura di settare il flag ”s" con Protect 
Batch +s: 

Batch PosY PosX 

La posizione di Home (in alto a sinistra) 
è individuata da (1,1). 

Dal punto di vista della programmazio- 
ne bisogna notare, nel file batch, l’utilizzo 


Per l’utilizzo basta aprire una finestra 
Cli (o Shell) e lanciare il batch (preceden- 
temente memorizzato su disco col nome 
che si preferisce) con la sintassi... 

Executft rileNtìne FileTime 

...in cui Batch è il nome con cui è 
memorizzato il nostro file batch. FileNa- 
me è il nome del programma di cui si 
desidera tener nota del tempo di utilizzo 
e FileTime è il nome del file destinato a 
contenere le informazioni relative al tem- 
po di utilizzo di FileName. 

Naturalmente i tre parametri devono 
essere eventualmente completi del Path, 
cioè del percorso lungo volumi e directo- 
ry che il Dos deve fare per rintracciare i 
file stessi. 

Ricordiamo che il comando Execute 
può essere aggirato (apparentemente) 
settando il flag "s" del file-batch col co- 
mando: Protect Batch +s. In questo 
modo e possibile attivare il file batch 
semplicemente richiamandone il nome 
corredato degli eventuali parametri, co- 
me un qualsiasi altro comando Dos. 

A sessione di lavoro terminata, si tor- 
nerà nella finestra Cli e, dopo averla 
eventualmente attivata clickando col 
mouse al suo interno, si premerà il tasto 
Return, interrompendo così il conteggio 
del tempo e permettendone la memoriz- 
zazione. Per l'interpretazione dei dati del 
FileTime si è preferito far ricorso ad un 
banale programmino scritto in AmigaBa- 



. key y/a,x/a 

/Accetta i parametri 

; +-+ Locate +++ 


if <y> gt "0” vai 

; Se YoO. . . 

if <x> gt "0" vai 

; e XO0. . . 

skip exec 

/esegue il comando 

endif 


endif 


echo "il legai arguments" 

/Se no segnala errore... 

quit 

/ed esce 

lab exec 


e vai <y> 1 format=" *E { NH" 

/Posiziona Y 

eval <x> lforr.at = " *E( : : NC* 

E[1D" /Posiziona X 


II file batch che implementa II comando Locate di AmigaBasic 


' Legge il FileTime 
' generato dal batch - file 
' che conta il tempo di lavoro 

DSF FNa (j) = VAL <MID$ (a$, j) ) 

INPUT "FileNane"; f$ 

OPEN f.$ INPUT AS I 

a$ - IN?UT$ (LO? (1), 1) 

CLOSE : 

pi TNSTR (a$, " : "> - 2 
p2 - LSN (a$> - 8 

timel FNa (pi) * 36C0 + FNa (pi +3) * 60 + FNa (pi + 
6) 

j - FNa (p2) : TF j < FNa (pi) THEN j = j + 24 
tirr.e2 - i * 3600 + FNa (p2 ♦ 3) * 60 + FNa (p2 + 6) 
j L imo 2 - timel 

PRÌKT "HK: MX: SS di lav©ro>"/ 

PRIKT 1 NT (j / 3600) 

: = j - TNT (j / 3600) * 3600 
PRTMT :MT (j / 6C) M :"/ 


Il listato AmigaBasic che "interpreta” il file Ascii 


90- Computer Club- 





Amiga Dos 


r*Q$. 




inconsueto del comando Eval, normal- 
mente adoperato (anzi, diciamo pure, 
scritto appositamente) per valutare sem- 
plici espressioni numeriche intere. In 
questo caso, invece, Eval è chiamato a 
svolgere un compito completamente di- 


verso: preleva il valore del parametro 
associato ad execute, quindi, tramite 
l'opzione Lformat lo inserisce, al posto 
di "%N", in una stringa contenente i ca- 
ratteri di controllo del cursore, infine 
stampa la stringa. Il tutto in una sola 


linea, semplificando quindi il programma 
e rendendolo più veloce. Cogliamo l'oc- 
casione. anzi, per far notare come, sfrut- 
tando con un pizzico di creatività le po- 
tenzialità dei comandi, sia talvolta possi- 
bile ottenere effetti, per così dire, non 
canonici, che permettono di raggiungere 
gli obiettivi più velocemente che non per- 
correndo un normale itinerario di pro- 
grammazione. 

L’ultimo batch 

E ccoci, infine, a descrivere il terzo ed 
ultimo file-batch, il più lungo e, forse, 
il più utile. Esso, infatti, permette di effet- 
tuare una ricerca di tipo "Or” oppure 
"And" tra le linee di un file. 

E' bene ricordare che una linea è un 
segmento di caratteri Ascii terminante col 
carattere LF ($0A). 

Non ci sono particolari tecniche di pro- 
grammazione da evidenziare se non 
quella lunga teoria di Copy iniziale, che 
serve per copiare in ram i comandi del 
Dos che compongono la sezione del pro- 
gramma dedicata alla ricerca, in modo da 
rendere molto veloci le operazioni. La 
sintassi è (a patto, lo ripetiamo ancora, di 
aver settato, come al solito, il flag M s" col 
comando: Protect Batch +s)... 

Batch File Op largi] [arg2] 

(arg3J 

...in cui Batch è il nome assegnato al 
nostro file, che potrebbe essere ad 
esempio Research ; File è il nome del file 
in cui effettuare la ricerca; Op indica il 
tipo di ricerca: bisogna scrivere quindi 
"or” oppure "and”. 

Questo argomento, come ovviamente 
il precedente, è obbligatorio, altrimenti il 
programma segnalerà errore. I tre para- 
metri che seguono tra parentesi quadre 
sono le chiavi di ricerca e non necessa- 
riamente devono essere passati tutti e 
tre. 

In pratica, se si effettua una ricerca di 
tipo "or", il programma cercherà e stam- 
perà tutte quelle linee che contengono 
argl oppure arg2 oppure arg3, mentre 
avviando una ricerca di tipo "and" le linee 
evidenziate saranno eventualmente 
quelle che conterranno argl "e" arg2 "e" 
arg3. Questo file-batch, come abbiamo 
già detto, è utile perchè può essere inse- 
rito in un programma, sempre di tipo 
batch, che gestisca, ad esempio, un da- 
tabase. 


.key file/a, op/a, argl, arg2, arg3 /Accetta i parametri 
; +++ ricerca condizionata +++ 


/Copia in ram . . . 
/alcuni comandi... 
/per accelerare... 
/il processo . . . 

/di ricerca . . . 


/Se la ricerca e' tipo "and" 
/salta alla sezione giusta., 
/altrimenti . . . 

/se non e' nemmeno tipo 'or' 


copy c: search to ram: 
copy c:if to ram: 
copy c:endif to ram: 
copy c:copy to ram: 
copy c:getenv to ram: 
copy c:skip to ram: 
copy c:lab to ram: 
if "<op>" eq "and" 
skip AndSection 
else 

if not " <op> " eq "or" 

echo "bad arguments" /segnala errore... 
quit ;ed esce 

endif 
endif 

lab OrSection /*** RICERCA "OR" *** 

if not "<argl>" eq "" /Se esiste argomento 

search >env:bufl "<file>" "<argl>" nonuro/ ricorrenze .. . 
if not warn /se ha trovato qualcosa. 

skip end /salta alla fine 

endif 
endif 

if not "<arg2>" eq "" /...come sopra... 

search >env:bufl "<file>" "<arg2>" nonum; 
if not warn 

skip end ; 

endif 
endif 

if not "<arg3>" eq "" /...come sopra... 

search >env:bufl "<file>" "<arg3>" nonum; 
endif / 

skip end ; 

lab AndSection 
if not "<argl>" eq 


* * * 


RICERCA "AND” 


* * * 


ff M 


/Se esiste l'argomento 


search >env:bufl "<file>" "<argl>" nonum/cerca ricorr. 
copy env:bufl env:buf2 
endif 

if not "<arg2>" eq "" 

search >env:bufl env:buf2 "<arg2>" nonum/ 
copy env:bufl env:buf2 / 

endif 


/e le copia nel buffer 
/ . . .come sopra. . . 


M II 


if not "<arg3>" eq 

search >env:bufl env:buf2 
endif 
lab end 
getenv bufi 


/ . . .come sopra 
<arg3>" nonum/ 


* * * 


fine 


* * * 


/Stampa dei risultati 


L’ultimo batch file consente ricerche di tipo Or e And 
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Animai Amnesty è una associazione per i diritti 
degli animali che agisce soprattutto attraverso 
l’informazione. 

Propone ai suoi soci dei facili suggerimenti pratici 
e concreti per aiutare a difendere gli animali. 

Se vuoi essere tenuto informato e collaborare 
anche tu per un mondo con meno sofferenza 
(umana e non umana), associati ad 

Animai Amnesty 


Per iscriverti è sufficiente versare la quota 
prescelta sul ccp 1 1396207 mtestato ad 
Animai Amnesty / Galleria Passerella, 1 
20122 Milano, specificando sul retro della cedola 
la causale. Le quote sono: 

L. 15.000 Giovane (fino a 18 anni o disoccupato) 

L. 30.000 Aderente 
L. 60.000 Sostenitore 
L. Donazione 

Insieme saremo più efficaci se più grande sarà 
il contributo. 


ANIMAI. 

AMNESTY 


Quanti animali pei una 
pelliccia? 

10/24 Volpi 
30/70 Visoni 
130/200 Cincillà 
16/20 Castori 
100/400 Scoiattoli 
180/240 Ermellini 
30/45 Agnelli Broadtail 
20/30 Procioni 
26/34 Nutrie (Castorino) 
8/12 Linci 





"C" per Amiga 






di Luigi Callegari 



Il "puntatore" è stato 
incontrato in 
precedenti 
chiacchierate sul C; 
è il momento 
di approfondire 
l'argomento 


T rattandosi di un concetto, ad un tem- 
po, complesso e cardinale nell'eco- 
nomia dei programmi scritti in C, è fonda- 
mentale capirlo bene dedicandovi parec- 
chio spazio. 

Oltretutto, il puntatore è alla base del- 
la gestione dei vettori, delle matrici (in 
senso stretto, un vettore è già una matri- 
ce monodimensionale) e, come già detto, 
anche delle stringhe alfanumeriche, delle 
parole insomma, che sono considerate e 
manipolate dai programmi in C come vet- 
tori di singoli caratteri. 

□ □ 

Puntatori e memoria 

Q uando si scrive un programma si ha 
spesso bisogno di gestire bytes di 
memoria. 

Per farlo è necessario che gli stessi 
siano identificabili dall'Indirizzo, valore 
numerico che identifica nella mappa del- 
la memoria di Amiga (che si estende 
normalmente da 0 a 8,388,608, per un 
totale di circa 8 milioni, 8 megabyte, di 
singole locazioni). 

Mentre le variabili sono gestite auto- 
maticamente dal compilatore, dal punto 
di vista del programmatore, le locazioni 
di memoria devono essere indirizzate 
tramite puntatori. 

In effetti, il codice compilato gestisce 
ciò che noi chiamiamo variabili (e usiamo 
nel nostro testo) mediante puntatori, che 
indirizzano (indicano, o "puntano" ap- 
punto) i valori contenuti in locazioni di 
memoria; tutto ciò avviene comunque in 
modo a noi trasparente. 


Operatori 

L a stretta relazione che lega variabili a 
puntatori ci porta a scoprire l’operato- 
re "Indirizzo". 

Questo operatore, ovvero simbolo che 
svolge una particolare operazione (come 
V è l'operatore di somma matematica), 
svolge la funzione opposta del puntatore, 
in effetti, dato che consente di ricavare 
l'indirizzo di memoria a cui sono allocati 
i dati relativi ad una variabile. La simbo- 
logia del linguaggio C è come segue: 

* Simbolo di puntatore 
& Simbolo di indirizzo 


Questi simboli devono essere associa- 
ti normalmente, salvo alcune eccezioni 
relative all'operatore puntatore, ad un 
identificatore. 

Ad esempio, l’esecuzione delle se- 
guenti linee... 

p = &x 

y - *P 

...eseguono due funzioni complemen- 
tari. La prima assegna alla variabile "p" il 
valore assoluto corrispondente all’indiriz- 
zo (&) di memoria a cui è memorizzala la 
variabile "x". La seconda linea dice inve- 
ce di assegnare alla variabile y il valore 
che è memorizzato a partire dall’indirizzo 
puntato (*) dalla variabile p. che nella 


L* Scambio dai valori x at y. 

printf ("\n\nModo corrotto: \n\n") ; 

in aodo aerato a corratto */ 

printf ("x*%d, y*%d", x,y ); 

void cor(), err() ; 

printf ("\n\nFine lavoro\n\n" ) ; 

) 

void main() 

void err( int a, int b ) 

< 

( 

int x, y; 

int t; 

printf ("Inserisci x et y\n\n") ; 

t - a; a - b; b * t,* 

scanf { "%d %d M , 4x, 4y ); 

) 

printf ("\n\nx-%d y«%d", x.y ); 

•rr( x.y ); /* Errato */ 

void cor( int *pa, int *pb ) 

( 

printf (*'\n\nHodo errato: \n\n”) ; 

int t; 

t = *pa; 

printf ("x=%d y=%d” , x.y ); 

*pa = *pb; 

cor ( *x, *y ); 

*pb = t; 

) 


Figurai 
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fattispecie si chiama appunto impropria- 
mente "puntatore". 

In pratica, le due linee precedenti sono 
l’equivalente di una qualunque delle due 
linee seguenti: 

y = * ( &x ) 
y = x 

Probabilmente sono bastate queste 
poche righe a confondere le idee di molti, 
non tanto per la difficoltà dei concetti 
originali di puntatore ed indirizzo, bensì 
per il fatto che anche i puntatori e gli 
indirizzi sono assegnabili a variabili. 

L’importante è sapere distinguere 
mentalmente le variabili di tipo generico 
(dichiarate come short, Int, long eccete- 
ra) dalle variabili puntatori. Materialmen- 
te, una variabile puntatore è un gruppo 
di locazioni di memoria sufficienti a con- 
tenere qualunque indirizzo nella mappa 
di memoria. Nel caso di Amiga, una va- 
riabile puntatore occupa pertanto 32 bit. 
Infatti, solo variabili che possono conte- 
nere un qualunque indirizzo di memoria 
possono essere utili come puntatori. 

La distinzione tra puntatori e variabili 
deve essere specificata al momento del- 
la definizione del tipo di contenuto delle 
variabili. 


Come visto poc’anzi, il risultato pratico 
derivante dall’esecuzione delle due linee 
dell’esempio e’ quello di una assegnazio- 
ne diretta "y=x H . Infatti, ad y viene asse- 
gnato nella prima linea il valore contenu- 
to nella locazione di memoria a cui punta 
&x, il quale rappresenta l’indirizzo di me- 
moria a partire da cui è memorizzato il 
contenuto di X. 

In pratica, il valore contenuto dal con- 
tenuto della locazione di memoria il cui 
puntatore è pari all’indirizzo da cui è me- 
morizzato x corrisponde effettivamente 
al valore x; perciò il contenuto di y sarà 
uguale al contenuto di "x". Semplice, no? 

Notare che abbiamo detto "a partire da 
cui * un puntatore, infatti, contiene mate- 
rialmente la prima locazione di memoria 
in cui è conservato un dato che, a secon- 
da del tipo, può risiedere in più locazioni 
consecutive. Ad esempio, nel caso di 
programmi compilati con il SAS/C, una 
variabile Long occupa 32 bit (2 word con- 
secutive). 

□ □ 


Definizione 

L a definizione di un puntatore ha un 
duplice effetto: definire il tipo di valori 
a cui punta e definire la dimensione della 
variabile che conterrà il valore del punta- 
tore; perciò la seguente linea... 
char *p; 

...comunica al compilatore che i valori 
contenuti in p (a 32 bit, come long), rap- 
presentano un puntatore a dati di tipo 
char (carattere). Benché si parli material- 
mente, per i motivi di allocazione a 32 bit 
detti prima, sempre di valori di tipo Intero 
lungo, assegneremo ad una variabile 
puntatore a carattere solo una variabile 
dello stesso tipo. In altre parole, il compi- 
latore controllerà che a questo puntato si 
assegni sempre l’indirizzo di un carattere 
e lo gestirà, come vedremo tra poco, 
secondo regole adatte. 

Calcoli 

E ’ possibile effettuare calcoli aritmetici 
tra variabili puntatori e variabili di ti- 
po long. Ad esempio, nel programma di 
figura 1 , si può vedere uno scambio tra 
variabili effettuato da una funzione richia- 


/» viauallttarlona contenuto dalla 

printf r\n") ; 


} 

da Ìndiritto ^pacificato ♦_/ 



void main() 

void viali ( unaignad char *i ) 

( 

( 

char f, *x; 

int c,d; 

short b; 


printf ("\n\nlnsarisci indirirao asadacimala: "); 

printf ("%08x: ", i ); 

scanf ("%6x", 6x ); 

for ( c * 1 ; c <* 16 ; c++ ) ( 

printf (”\n\n\n M ) ; 

d * ( *i>=0 ? *i : (256 + *i) ) ; 

f = 0; 

printf ("%02x ", d ); 

whila ( f •* 'f' ) 

++i; 

( 

) 

for ( b » 0 ; b<18 ; b++ ) { 


viali ( x ); 

i -= 16; 

x +* 16; 

printf ( "); 

> 

for ( c«l ; c<» 16; c++ ) 

printf ("\n\nXntar par continuar#, ”) ; 

( 

printf ("f par finirà "); 

d « ( *i > 31 (t *i<128 ) ? *i : ' ; 

scanf ( "%c", *f ); 

printf ( ”%c", d ); 

printf ( H \n\n") ; 

++i; 

) 

} 

> 

Figura 2 
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11 Definizione di matrice di 2 

>; 

pgntatQjri^e asseqnationa di 

printf ("\n\nlnserisci giorno") ; 

«£jringhe_o_numero di elementi _1 L 

printf (" della settimana (1.7): ") ; 


scanf ("%d" , 4x) ; 

void aain ( void ) 


( 

if ( x>0 (( x<8 ) ( 


printf ("\n\nll %d' giorno ", x ); 

long x; 

printf ("della settimana : ") ; 

atatic char «giorni (] ■ { 

> 

"inesistente". 


"lunedi, 


"martedì, 

else { 

"mercoledì , 

x * 0; 

"giovedì, 

printf ( " \n\nGiorno " ) ; 

"venerdì. 

) 

"sabato". 

printf ("%a\n\n", giorni [x]); 

"domenica" 

) 


mata: sono inclusi sia un metodo errato, 
sia un metodo corretto. 

Nell’esempio, vogliamo passare alla 
funzione chiamata un paio di parametri: 
nella funzione err() questi sono il conte- 
nuto di x e quello di y, mentre nella 
funzione cor() vengono passati gli indi- 
rizzi di x ed y, rispettivamente. 

Dal tipo di elaborazione effettuata dal 
programma possiamo notare che la fun- 
zione err() scambia solo apparentemen- 
te i valori x ed y. O meglio, scambia i 
valori solo al proprio interno, dato che 
non restituisce i valori cambiati al pro- 
gramma chiamante. 

In altri linguaggi, come il Pascal, si 
direbbe che la funzione viene richiamata 
passando i parametri per valore, mentre 
per modificare i valori agli occhi di tutte le 
funzioni del programma ("globalmente") 
si devono passare i parametri per nome. 

Ritornando al linguaggio C, per effet- 
tuare lo scambio corretto dovremo utiliz- 
zare il secondo metodo, lavorando con i 
puntatori alle variabili. La variabile t serve 
soltanto come mezzo di transizione, co- 
me punto di appoggio, per scambiare le 
variabili senza perdere alcuna delle due. 

Con una definizione del tipo... 
long *x; 

...accadrà che per tutte le operazioni 
del tipo... 

a = *(x+l) 

...ad esempio, otterremo un calcolo 
scalare dell’indirizzo a cui puntare. Vale 
a dire, se x punta alla locazione 1000, in 
cui si trova un valore "long" che è lungo 
4 byte, allora (x+1 ) punterà implicitamen- 


te alla locazione 1004. Questo tipo di 
calcoli è del tutto trasparente per l'utente, 
ma è importante, ovviamente, sapere 
che il compilatore li svolge. 

Vettori 

I vettori di dati, numerici od alfanumerici, 
sono definiti mediante un identificatore 
("nome") e le parentesi quadre. L’identi- 
ficatore. ovvero il nome del vettore, è in 
realtà un puntatore contenente l'indirizzo 
di partenza dei dati appartenenti al vetto- 
re stesso. Per esempio, la stringa definita 
con... 

char nome [10]; 

...indica un vettore di 1 0 variabili carat- 
tere, associate all'identificatore "nome". 
Quest’ultimo, preso singolarmente, non 
è altro che il puntatore indirizzante la 
locazione di memoria della quale è me- 
morizzata la sequenza di caratteri. Quin- 
di, il contenuto di "nome" risulterà identi- 
co a & nome [ 0 ], dove lo zero indica il 
primo elemento della sequenza del vet- 
tore, quindi è possibile usarlo ad esempio 
in printf() 0 scanf() per indicare l’indiriz- 
zo di inizio della stringa da visualizzare o 
inserire. 

La differenza che intercorre tra defini- 
zione di un puntatore e definizione di un 
vettore consiste nel fatto che la prima 
predispone una variabile. Ovvero, con 
quest'ultima sono possibili operazioni 
aritmetiche, mentre la seconda definisce 
un valore costante al quale viene som- 
mato, in modo scalare, il valore posto tra 
le parentesi quadre. 


Inoltre la definizione di un vettore crea 
lo spazio in memoria atto a contenere 
tutti i dati, mentre il puntatore è solo una 
variabile. In base a quanto detto sono 
ovviamente consentite le seguenti di- 
chiarazioni: 

char nome [20], *punt, x; 
punt * &nome(0); 
punt - nome; 
x *» nome (5] ; 
x * * (punt+5) ; 
x = punt ( 5 ] ; 

...dove il valore punt assume sempre 
lo stesso significato, mentre alla variabile 
x viene assegnato lo stesso valore. E’ 
invece errata la specifica: 

punt = & ( x+ 2 ) ; 

Infatti, la "x" è disposta in memoria: 
posto a 2 il suo valore sarebbe come 
chiedere l’indirizzo di 2+2, che essendo 
una costante numerica non può essere 
indirizzata, cioè non se ne può calcolare 
l’indirizzo perchè non avrebbe senso. 


Un esempio 

V ediamo ora un altro esempio con i 
puntatori nel listato di figura 2, pro- 
gramma che consente la visualizzazione 
del contenuto della memoria a partire 
dall’indirizzo battuto dall’utente. 

I valori riportati in ogni linea indicano: 
l’indirizzo del primo byte, il contenuto in 
formato esadecimale sottoforma di 16 
byte consecutivi e gli stessi 16 byte in 
formato ascii, con i codici non stampabili 
sostituiti da un punto. 
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Z_* Ricero# sequenza caratteri 


if ( n = 0 ) 


entro una stringa ... Ritorna JU 


printf ( "Sequenza non trovata\n\n") ; 


Carattere di partenza se OK^ 


else ( 


zero altrimenti *± 


printf ("La sequenza parte dal ") ; 
printf ("carattere n. %d\n\n\n", n ); 


tf include <stdio.h> 

> 

> 


long instr () ; 




long instr ( char *dl, char »d2 ) 


void main() 

{ 

{ 

char *x, *y, *a, f; 


long n; 


x - di, f - 0; 


char si [100] , «2 [100] ; 


for ( x * di; f 0 ££ *x !» ' \0' ; x++ ) 

( 

printf ("\n\nlnseriaci stringa: \n") ; 


a = x, f ■ 1, y«d2; 


scanf ("%s H , si ); 


while ( f > 0 ftt *y !- ' \0' ) { 


printf ("\nlnserisci la sequenza "); 
printf ("di caratteri da cercare: "); 

scanf ( "%s", s2 ); 


f . (*« !- • \ 0 ' tt *a =» *y ) ? 1 : 

++*; 

++y; 

) 

} 

0; 

n « instr ( si, s2 ); 



printf ( "\nStringa 1: %s", si ); 
printf ( ”\nStringa 2: %s\n\n", s2 ); 

) 

return ( f—1 ? x-dl : 0 ) ; 



Flfl.4 


La funzione visli() visualizza una linea 
di dati a partire da un indirizzo specifica- 
to, definito con il passaggio del puntatore 
x. Si può notare che all’interno della fun- 
zione il puntatore i, che indirizza il dato 
corrente, è utilizzato sia come variabile 
(I++) sia in luogo del dato a cui punta (*i, 
*i0 eccetera). Nel blocco del primo ciclo 
della visli() l’assegnazione di d include 
un operatore condizionale che restituisce 
*1, purché questo non sia negativo. 

□ □ 

Matrici 


U na matrice di dati è materialmente 
formata da un’area di memoria con- 
secutiva gestita per righe e colonne, in 
modo comunque trasparente all’utente. 

Per manipolare una matrice possiamo 
pensarla anche come vettore di puntato- 
ri, ovvero una serie di puntatori associati 
all’inizio di ogni linea di una matrice. De- 
finendo, ad esempio,... 
char mat [10] [10] , *punt[10]; 

...otterremo sia una matrice di 10 per 
1 0 caratteri, sia un vettore di 1 0 puntatori 
a carattere. Nel primo caso il compilatore 
allocherà materialmente spazio per cen- 


to caratteri, nel secondo soltanto lo spa- 
zio per dieci puntatori. 

Nel listato di figura 3 vediamo, appun- 
to, un esempio di programma che defini- 
sce un vettore di puntatori e contempo- 
raneamente assegna delle stringhe. 

Si noti che tra le parentesi quadre del 
vettore "giorni" non è specificata la lun- 
ghezza, infatti la sua definizione viene 
effettuata automaticamente durante l’as- 
segnazione. L’indirizzo del primo caratte- 
re di ogni elemento stringa definito in 
memoria verrà assegnato ai puntatori del 
vettore di puntatori. 

Quindi il puntatore giorni[0] identifi- 
cher’ la stringa "inesistente”, giorni[1] 
punterà a lunedì e così via per gli otto 
elementi del vettore. La visualizzazione 
della stringa selezionata in base al valore 
inserito viene effettuata passando alla 
funzione printf() il puntatore giorni[x]. 

Nel listato di figura 4 possiamo com- 
prendere meglio l’applicazione pratica 
dei vettori e dei puntatori. Si tratta di una 
routine che cerca una sequenza di carat- 
teri all’interno di una stringa. La main() 
chiama la funzione instr() che si occupa 
di effettuare la ricerca. I parametri neces- 
sari sono: puntatore alla stringa base 
(di) e puntatore alla sequenza di carat- 
teri da cercare (d2). Il confronto inizia dal 


primo carattere della stringa e procede 
sequenzialmente sino al termine della 
stessa. Se viene trovata l'eguaglianza tra 
i primi caratteri si prosegue con i rima- 
nenti della stringa da scandire. Se il con- 
fronto è positivo per tutti i caratteri, la 
funzione restituisce un valore long che 
punta al primo carattere della stringa, 
altrimenti viene restituito un valore zero. 

□ □ 

Conclusioni 

L a prossima volta inizieremo a parlare 
dell’uso delle routine del sistema 
operativo di Amiga da linguaggio C, intro- 
ducendo discorsi non più riconducibili al- 
lo standard ansi c, ma peculiari ed esclu- 
sivi per Amiga. 
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Insieme 


P er la gioia dei nostri lettori, 
pubblicheremo, periodica- 
mente, un "indice" degli argo- 
menti (di recente pubblicazione) 
che riteniamo di maggior interes- 
se per gli utenti della nostra rivi- 
sta. La suddivisione per argomenti faciliterà la ricerca 
degli articoli; il nome di questi, riportato in questa pagina, 
non sempre corrisponde a quello originale. Ciò per far 


Il meglio di C.C.C. 


meglio comprendere l’argomento trattato. Il numero in 
neretto, ovviamente, corrisponde al numero del fascicolo 
della rivista. 


Ms-Dos 

80 Ricomincio dal Dos; 

81 Districarsi tra i comandi 

82 PcTooIs V.4 (miniguida) 

83 Come usare Word Star (miniguida) 

84 Word 5.5 (recens.); Borland Turbo C 
(recens.) 

Pascal Ms-Dos 

81 Borland T.Pascal 5.5 (recens.); 

82 QuickPascal Microsoft (recens.) 

84 A proposito di variabili 


Basic Ms-Dos 

78 Autocad, scrivilo in Basic 

81 Indovina, indovinello; Da Amiga a 
Ms-Dos 

82 Agenda automatica per ricordare 
date importanti 

83 Un generatore di compiti in classe 

84 Simulazione del gioco del 15 

C Ms-Dos 

78 Come eseguire una somma (primi 
passi) 

79 Come animare un cerchio 

81 Microcad 

82 Gestione di file sequenziali e relativi 

83 Gestione del gioco del Lotto 
(recens.) 


Basic + Pascal 

79 Due equazioni con tre vestiti 

80 Disegnare in prospettiva 

Basic + Pascal + C 

80 Colloquiare con il drive 

82 Barra proporzionale; Girandola 

83 Gestione schermo in modo testo 


Assembly 80X86 

81 Assembly primi passi; Le istruzioni 
Mov e Add 

82 Le istruzioni Jmp, Cali, Ret 

83 Le istruzioni Dee, Jz, Jnz e Dee 

84 Le istruzioni Jn, Jnz, Int 

AmigaDos 

75 Assign, Copy, Date, Dir, Instali, 
Path, Search, Sort 

76 Car. spec. Delete, Format, Protect, 
Renarne 

77 Execute, Direttive Batch, If, 
Skip.Jab, Quit 

78 Cd, Ed. Break 

79 Which, Device, Ser, Nil, Raw, Con, 
Newcon, Par, Prt, Newshell, Newcli 

80 Setmap; Iconx; List; 

81 Avail, Join, Alias 

82 Failat, Eval; Un archivio usando i 
comandi di AmigaDos 

83 Env, Setenv, Getenv 

84 Tre file batch; La memoria RAD 

Argomenti di interesse generale 

80 Come attuare un collegamento via 
modem 

81 A proposito di stampanti 
84 II linguaggio PostScript 

Recensioni di interesse generale 

80 II modem CDC 2400 (hw) 

81 II modem Supramodem 2400 (hw) 

82 Amidraw Tablet (hw) 

83 DeluxePaint III (sw) 

84 I modem US-Robotics; Dos2Dos per 
trasferir files tra Amiga e Ms-Dos 
(miniguida) 

Recensioni Amiga 

76 The Works parte 1 (sw) 

78 The Works Parte 2 (sw); 


79 JR-Comm; Stereo professional 
sample studio (sw-hw); Soundtracker 
(sw); AC Basic compiler (sw); HiSoft 
Basic Compiler (sw); GFA Basic 
Compiler (sw); F-Basic V.2.0 (sw) 

80 Hard disk per Amiga (hw); Scheda 
Ms-Dos per A-500 (hw); Oktalyzer 
(sw); F-Composer (sw) 

81 Drive 5.25 per A-500 (hw); Cl-Text 
V.3 (sw); Movie Setter (sw); 
Compilatori C (sw) 

82 Comic Setter (sw); Trackball Amtrac 
(hw); Scheda AT per A-500 (hw) 

83 Draw4D (sw);AMAS Sampler (hw + 

sw); Mouse ottico (hw); Hand 
Scanner JS-105-1M (hw); 

Amigazzetta 10 (sw) 

84 Professional Page (sw); Amos Basic 
(sw); Audiomaster; Digitalizzatore 
video (hw + sw); Disk Master (sw) 

Applicazioni per Amiga 

79 Animare la grafica con Dpaint 3 

AmigaBasic 

79 Disegnare meridiani e paralleli 

80 Disegnare in prospettiva; Messaggi 
cifrati; Domino 

81 Indovina indovinello; Grafici di 
funzioni tridimensionali; Hard Copy; 
Determiniamo le formule 
matematiche "inverse" 

82 Un atlante per Amiga 

84 Risposta alla sfida musicale; 
Risposta alla sfida del tempo 

Amiga C 

82 Le istruzioni Input/output; Attiviamo 
uno sprite 

83 La gestione della Ram 

84 La gestioine delle stringhe 
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La voce 

Aggiunge al C/64 nuovi comandi Basic 
che consentono sia di far parlare il 
computer, sia di farlo Cantare I Diversi 
esempi allegati. 

Cassetta: L. 12000 - Disco : L. 15000 

Raffaello 

Un programma completo per disegnare, 
a colori, con il C/64: linee, cerchi, 
quadrati, eccetera. Valido sia per 
disegno a mano libera che geometrico. 

Cassetta : L. 10000 

Oroscopo 

Devi solo digitare la data di nascita e le 
coordinate geografiche del luogo che ti 
ha dato i natali. Vengono quindi 
elaborate le varie informazioni (case, 
influenze dei segni astrali, eccetera) e 
visualizzato un profilo del tuo carattere. 
Valido per qualsiasi anno, è indicato sia 
agli esperti sia ai meno introdotti. E’ 
allegata una tabella delle coordinate 
delle più note città italiane e l'elenco 
delle ore legali in Italia dal 1 91 6 al 1 978. 
Cassetta: L. 12000 - Disco: L. 12000 

Computer Music 

Cassetta contenente numerosi brani di 
successo da far eseguire, in interrupt, al 
tuo C/64 sfruttando, fino in fondo, il suo 
generatore sonoro (SID). 

Cassetta: L. 12000 

Gestione Familiare 

Il più noto ed economico programma per 
controllare le spese e i guadagni di una 
famiglia. 

Cassetta: L. 10000 - Disco: L. 10000 

Banca Dati 

Il più noto ed economico programma per 
gestire dati di qualsiasi natura. 

Cassetta: L. 10000 - Disco: L. 10000 

Matematica finanziaria 

Un programma completo per la 
soluzione dei più frequenti problemi del 
settore. 

Cassetta: L. 10000 - Disco: L. 20000 

Analisi di bilancio 

Uno strumento efficace per determinare 
con precisione i calcoli necessari ad un 
corretto bilancio. 

Cassetta: L. 10000 - Disco: L 20000 


Corso di Basic 

Confezione contenente quattro cassette 
per imparare velocemente le 
caratteristiche delle istruzioni Basic del 
C/64 e i rudimenti di programmazione. 
Interattivo. 

Cassetta: L. 19000 

Corso di Assembler 

Un corso completo su cassetta per chi 
ha deciso di abbandonare il Basic del 
C/64 per addentrarsi nello studio delle 
potenzialità del microprocessore 6502. 
Interattivo. 

Cassetta: L. 10000 

Logo Systems 

Il linguaggio più facile ed intuitivo 
esistente nel campo dell'Informatica; 
ideale per far avvicinare i bambini al 
calcolatore. 

Diversi esempi allegati. 

Cassetta: L. 6500 

Compilatore 
Grafico Matematico 

Uno straordinario programma 
compilatore, di uso semplicissimo, che 
permette di tracciare, sul C/64, grafici 
matematici Hi-Res ad altissima velocità. 
Esempi d'uso allegati. 

Cassetta: L 8000 

Emulatore Ms-Dos e Gw-Basic 

Un prodotto, unico nel suo genere, che 
permette di usare, sul C/64 dotato di 
drive, la sintassi tipica del più diffuso 
sistema operativo del mondo. Ideale per 
studenti. 

Solo su disco: L. 20000 

Emulatore Turbo Pascal 64 

Permette di usare le più importanti forme 
sintattiche del linguaggio Turbo Pascal 
(anche grafiche!) usando un semplice 
C/64 dotato di drive. 

Ideale per studenti. 

Disco: L. 19000 

Speciale drive 

Questo speciale fascicolo costituisce 
una guida di riferimento per le unità a 
disco del C64/128. 

Comprende anche un velocissimo 
turbo-disk più la mappa completa della 
memoria del drive. 

Fascicolo ♦ disco: L. 12000 


Utility 1 

Un dischetto pieno zeppo di programmi 
speciali per chi opera frequentemente 
con il drive. 

Disco: L. 12000 

Utility 2 

Seconda raccolta di utility indispensabili 
per realizzare sofisticate procedure di 
programmazione. 

Disco: L. 15000 

Graphic 
Expander 128 

Per usare il C/128 (in modo 128 e su 80 
colonne) in modo grafico Hi-res. 
Aggiunge nuove, potenti istruzioni Basic 
per disegnare in Hi-Res con la massima 
velocità in modalità 80 colonne. 

Disco: L 27000 

Directory 

Come è noto, a partire dal N. 10 di 
"Software Club" (la rivista su disco per 
l’utente dei "piccoli" computer 
Commodore), vengono riportati tutti i 
listati, in formato C/64-C/128, pubblicati 
su "Commodore Computer Club". 

In precedenza tali listati venivano 
inseriti, mensilmente, in un dischetto, di 
nome "Directory", che oltre ai programmi 
di C.C.C. ospitava decine di altri file tra 
cui musiche nell’interrupt, giochi, listati 
inviati dai lettori e altro. 

Ogni disco, dal prezzo irrisorio, contiene 
quindi una vera miniera di software. 
Ordinando i dischetti di "Directory" si 
tenga conto che al N. 1 corrispondeva il 
contenuto del N. 34 di "Commodore 
Computer Club", al N. 2 il N. 35 e così 
via. 

Ogni dischetto: L. 10000 

Super Tot ’64 

La nuova e completa edizione del 
programma Tot 13 con tutti i sistemi di 
riduzione e di condizionamento. 

Ampia sezione dedicata alla teoria. 

fascicolo + disco: L. 15000 

Amiga 

Totospeed 

Finalmente anche per Amiga un 
programma orientato alla compilazione 
delle schedine totocalcio. 

Fai tredici conil tuo Amiga. 

disco: L. 20000 
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Disk’o’teca 

Sraz-e a questa nutrita raccolta di brani 
-nusicali potrete divertirvi ascoltando i 
- gliori brani prodotti dai vostri 
remamini. oltre a una serie di 
composizioni prodotte "in casa". 
r omaggio un bellissimo poster di Sting. 

Disco: L. 15.000 

Assaggio di primavera 

Esclusivo! 

r un’unica confezione potrete trovare 
due cassette di videogtochi assieme 
2 un comodo e funzionale joystick. 

Cassette: L. 15.000 


LIBRI TASCABILI 


64 programmi per il C/64 

= accolta di programmi (giochi e utilità) 
semplici da digitare e da usare. Ideale 
i principianti. (126 pag.) 

L. 4300 

I miei amici C/16 e Plus/4 

1 volumetto, di facile apprendimento, 
'sopresenta un vero e proprio mini-corso 
r Basic peri due computer Commodore. 
Numerosi programmi, di immediata 
sg tazione. completano la parte teorica. 
127 pag.) 

L. 7000 

62 programmi 
per C/16, Plus/4 

Raccolta di numerosi programmi, molto 
orevi e semplici da digitare, per 
conoscere più a tondo il proprio 
e adoratore. 

deale per i principianti. (127 pag.) 

L. 6500 

Micro Pascal 64 

Descrizione accurata della sintassi 
usata dal linguaggio Pascal "classico". 
Completa il volume un programma di 
emulazione del PUÒ sia in formato 
Microsoft sia in versione C/64 (da 
chiedere, a parte, su disco). (125 pag.) 

L. 7000 

Dal registratore al Drive 

Esame accurato delle istruzioni relative 
alle due più popolari periferiche del C/64. 


Diversi programmi applicativi ed esempi 
d'uso. (94 pag.) 

L. 7000 

Il linguaggio Pascal 

Esame approfondito della sintassi usata 
nel famoso compilatore. (1 12 pag.) 

L. 5000 

Simulazioni e test 
per la didattica 

Raccolta di numerosi programmi che 
approfondiscono e tendono a 
completare la trattazione già affrontata 
sul precedente volume. (127 pag.) 

L. 7000 

Dizionario dell’Informatica 

Dizionario inglese-italiano di tutti i termini 
usati nell'informatica. (Edizione 
completa). (385 pag.) 

L. 10000 

Word processing: istruzioni 
per l’uso 

Raccolta delle principali istruzioni dei più 
diffusi programmi di w/p per i sistemi 


Ms-Dos: Word-Star, Samna, Multimate 
Advantage, Word 3. (79 pag.) 

L 5000 

Unix 

Un volumetto per saperne di più sul 
sistema operativo professionale per 
eccellenza. 

Un necessario compendio per l’utente 
sia avanzato che inesperto (91 pag.) 

L. 5000 

ABBONAMENTO 

Commodore Computer Club 
1 1 fascicoli: L. 60.000 

ARRETRATI 

Ciascun numero arretrato 
di C.C.C. L. 6.000 


Come richiedere i prodotti Systems 

Coloro che desiderano procurarsi i prodotti della Systems Editoriale devono 
inviare, oltre alla cifra risultante dalla somma dei singoli prodotti, L. 3500 per 
spese di imballo e spedizione, oppure L. 6000 se si desidera la spedizione per 
mezzo raccomandata. 

Le spese di imballo e spedizione sono a carico della Systems se ciascun ordine 
è pari ad almeno L. 50000. 

Per gli ordini, compilare un normale modulo di C/C postale indirizzato a: 

C/C Postale N. 37 95 22 07 
Systems Editoriale Srl 
Via Mose. 22 
20090 Opera (MI) 

Non dimenticate di indicare chiaramente, sul retro del modulo (nello spazio 
indicato con "Causale del versamento"), non solo il vostro nominativo completo 
di recapito telefonico, ma anche i prodotti desiderati ed il tipo di spedizione da 
effettuare. 

Per sveltire la procedura di spedizione sarebbe opportuno inviare, a parte, una 
lettera riassuntiva dell’ordine effettuato, allegando una fotocopia della ricevuta 
del versamento. 

Chi volesse ricevere più celermente la confezione deve inviare la somma 
richiesta mediante assegno circolare, oppure normale assegno bancario (non 
trasferibile o barrato due volte) intestato a: 

Systems Editoriale 
Milano 
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